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PREFACE 

PDP-n FORTRAN IV is part of the PDP-ll Disk Operating System. 
For the convenience of the FORTRAN programmer and the operator 
actually concerned with compiling the FORTRAN program, the 
manual is separated Into two distinct parts: 

Part I - The PDP-11 FORTRAN IV Language 
Part II - The FORTRAN Operating Environment 

The Index is also separated into two parts. 

Any configuration that supports the DOS will support FORTRAN. The 
reader of this manual is expected to have some familiarity with 
FORTRAN programming. 
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CHAPTER 1 
INTRODUCTION 



The following chapters describe the FORTRAN IV (FORmula TRANsIation) language, a problem-oriented 
language designed to permit scientists and engineers to express a computation in notation with which 
they are familiar. A FORTRAN source program is composed of statements in an easy to read form. 
Commands are descriptive of the functions they perform, and computational elements are expressed in 
a notation similar to that of standard mathematics. The source program is compiled by the FORTRAN IV 
compiler into code which is subsequently assembled by the PAL-ll Assembler Program. The resultant 
program runs in conjunction with the FORTRAN Object Time System described in Part II of this manual . 
Note that there is not a one-to-one correspondence between a FORTRAN statement and a machine- 
language instruction. Many statements will result in several machine instructions while others will 
yield none. The latter type, non-executable statements, provide information to the compiler on how 
to interpret other elements of the source program. 

1.1 LANGUAGE COMPONENTS 

The basic unit of expression in FORTRAN is the statement. A statement consists of a command portion 
which characterizes the statement's function and, as required, arguments upon which the command 
operates. A statement may be numbered for reference by other statements. The argument of a command 
may be data values upon which the program is to operate. These may be expressed explicitly (constants) 
or symbolically (variables). Using these primary units together with FORTRAN operators, the program- 
mer may construct expressions to derive new values by combining known values. 

The character set from which FORTRAN statements may be constructed is given below. 

The letters A-Z 
The digits 0-9 

Blank 
= Equals 
+ Plus 

Minus 
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* 


Asterisk 


/ 


Slash 


( 


Left parenthesis 


) 


Right parenthesis 


1 


Comma 


. 


Decimal point 


$ 


Currency symbol 



Ofher characters may appear only within a Hollerith constant (see Section 2,1.7) text string. 

FORTRAN statements fall into five categories according to their functions. Arithmetic statements are 
used to assign values to variables. Control statements are used to govern the sequence in which program 
statements are executed. Data transmission statements govern the transfer of information between the 
computer and peripheral devices. Specification statements provide the compiler with information about 
data the compiled program will process. Subprogram statements are used to define subprograms. 

1.2 PROGRAM STRUCTURE 

A FORTRAN program is a sequence of statements. The end of the program is signified by the characters 
END. Control originates at the first executable statement and continues in sequence unless explicitly 
transferred by the occurrence of a control statement . 

Non-executable statements must appear before the executable portion of the program. The one ex- 
ception to this rule is the FORMAT statement (described in Section 5.1.1). 

A statement is composed in lines; that is, a series of characters terminated by a line feed. Although 
most source programs for the PDP-11 FORTRAN compiler will be prepared using the EDIT-11 program, 
a line generally conforms to the format described below for punched card input. 

A line Is divided into three fields - the statement number field (columns 1-5), the line continuation 
field (column 6), and the statement field (columns 7-72). For non-card Input, the appropriate number of 
spaces may be typed, or the character TAB which will automatically advance to the appropriate field. 
Columns 73-80, which are Ignored by the FORTRAN compiler, may be used for any purpose, for 
example, for sequence or Identification numbers. 

The statement number Is optional . If supplied, it must be a number greater than zero, composed of 
1 to 5 digits of any value, placed anywhere within the field. Leading zeros are Ignored. Statement 
numbers may be assigned In any order since the sequence of operations Is dependent on the order of the 
statements rather than the value of their numbers. They must, however, be unique. 

The line continuation field is used only when a statement requires more than one line. Additional 
lines (up to a maximum of five) are indicated by the appearance of any character other than blank or 
zero in column 6. If a TAB is used rather than spacing, continuation lines are assumed when a numeric 
character follows the TAB. The end of a line is indicated by a line feed. 
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The stai-emeni- field contains a FORTRAN statement (or portion thereof). Blanks which appear within 
a statement will be ignored with the exception of alphanumeric data appearing in a FORMAT statement, 
in a DATA statement, or in a Hollerith constant. 

A comment line, denoted by a C in column 1 (first character), may appear anywhere in the source 
program. Comment text may then appear anywhere in columns 2-72. 
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CHAPTER 2 
EXPRESSING DATA VALUES 



Dafa values in a FORTRAN program may be represented by the primary units - constants and variables 
or by expressions. Expressions are composed of primary units and operators which indicate operations 
to be performed on their values. 

2.1 CONSTANTS 

A constant is a value used by the object program which does not change from one execution of the 
program to another. Six types of constants are permitted in a FORTRAN IV source program: integer 
or fixed point, real or single-precision floating point, double-precision floating point, complex, 
logical, and Hollerith. 

2.1.1 Integer Constants 

An integer constant is a string of from one to five decimal digits written without a decimal point. A 
negative integer may be indicated by a preceding minus sign. A positive integer may be preceded by 
an optional plus sign. 

Examples: 

3 

+ 10 
-528 
8085 

15 15 
An integer constant must fall within the range -2 to 2 -1 . 

2.1.2 Real Constants 

A real constant is a string of decimal digits which includes a decimal point. A real constant may 
consist of any number of digits but only the leftmost eight digits not including leading zeros are used 
by the compiler. 
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A real constant may be followed by a decimal exponent, represented by the letter E followed by a 
signed integer constant. The field following the letter E must not be blank, but may be zero. 

Examples: 



15. 






0.0 






.579 






10.794 






5.0E3 (i. 


e. 


, 5000.) 


5.0E+3 (i 


.e. 


, 5000.) 


5.0E-3(i, 


.e. 


, 0.005) 



5.0E0 (i.e., 5.0) 

A real constant has precision to 24 bits or about seven decimal digits. The magnitude must lie approxi- 
mately ' 
storage . 



-38 38 

mately within the range 0.14 X 10 to 1 .7 x 10 . Real constants occupy two words of PDP-1 1 



2.1.3 Double-Precision Constants 

A double-precision constant may consist of any number of decimal digits, but only the leftmost fifteen 
digits, not including leading zeros, are used by the compiler. It is specified by a string of decimal 
digits, including a decimal point, which is followed by the letter D and a signed integer constant. 
The field following the letter D must not be blank, but may be zero. 

Examples: 

24. 671 325982 134D0 
3.6D2 (i.e., 360.) 
3.6D-2 (i.e., .036) 
3.0D0 

-38 

The magnitude of a double-precision constant must lie approximately between 0.14 x 10 and 

38 
1 .7 X 10 . Double-precision constants occupy four words of PDP-1 1 storage. 



2.1.4 Octal Constants 

An octal constant is a string of from one to six octal digits (only the digits 0-7 may be used) preceded 
by the letter O. 



Examples: 



O120 

OO 

0\77777 
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An octal constant is valid only in the context of three statements - DATA, PAUSE, and STOP. The 
maximum value which may be expressed as an octal constant is \77777 . 

2.1.5 Complex Constants 

FORTRAN IV permits direct operations on complex numbers. A complex constant is written as an 
ordered pair of real constants separated by a comma and enclosed in parentheses. 

Examples: 

(.7071 2, -.7071 2) 
(8.763E3,2.297) 

The first constant of the pair represents the real part of the complex number, and the second constant 
represents the imaginary part; each may be signed. The enclosing parentheses are part of the constant 
and always appear, regardless of context. The two parts are each internally represented by one single- 
precision floating point value occupying consecutive locations of PDP-11 storage. 

2.1.6 Logical Constants 

The two logical constants, represented in the source language as .TRUE, and .FALSE., have the inter- 
nal integer values -1 and 0,* respectively. These values may be entered, via DATA or input statements, 
as TRUE and FALSE. Logical quantities may be operated upon both by arithmetic and logical operators. 

2.1.7 Hollerith Constants 

A Hollerith constant is a string of characters. There are two forms by which a Hollerith constant may 
be represented . 



Form 1: 


nH character string 


Where: 


n is the number of characters 


Examples: 


5HWORDS 
3H123 


Form 2: 


'character string' 


Examples: 


'WORDS' 
'123' 



The single quote character which delimits a Hollerith constant in Form 2 may be included in the 
character string if immediately preceded by a single quote character. Thus, 'DON"T' will be stored 
as DON'T. 



*The value -1 is equivalent to the octal number \77777 . 
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A Hollerith value may be entered in a DATA statement or input statement as a string of one or two 
ASCII characters per integer variable, one to four per real variable, and one to eight per complex or 
double-precision variable. 

Hollerith constants are stored in memory as byte strings. The constants will always fill up to word 
boundaries. If a Hollerith constant is specified with an odd number of characters, a blank will be ap- 
pended to the right-hand end of the constant. 



Example: the constant 5HABCDE , stored at location 20000j, in memory, would look like th 

20001 



8 
20000 



is: 



B 


A 


20003 




20002 


D 


C 


20005 




20004 


(blank) 


E 





Hollerith constants are used in different ways depending on context. See Paragraph 2.3.1 and espe- 
cially Table 2-1 for detailed information on the effect of Hollerith constants in arithmetic expressions, 



2.2 VARIABLES 

A variable is a quantity which is represented by a symbolic name. The value of a variable may change 
during the execution of a program. A variable name is a string of from one to six characters, the 
first of which must be alphabetic. Variable names longer than six characters are rejected by the 
compiler. 



Examples: 



Valid Names 

ALPHA 

MAX 

A34 



Invalid Names 

2A 
MAXIMUM 



A variable has a principal attribute-type. The variable's type indicates the type of value it may be 
assigned (integer, real, logical, double-precision, or complex). Type is assigned to a variable via 
an explicit type declaration statement (6.3), implicitly via an IMPLICIT statement (6.4), or, if 
neither of these methods is used, by virtue of the initial letter of its name. I, J, K, L, M, or N 
indicate type integer (fixed point). All other letters indicate type real (floating point). 



2-4 



The extent of a variable refers to the extent of the values which may be referred to by a single name. 
A scalar variable represents a single quantity. 

An array variable represents an element of an array, an ordered set of data of one, two, or three 
dimensions. An entire array is identified by its name; an element of the array is identified by the sub- 
scripted array name . 

Up to three levels of subscripting may be given for an array variable. 

Examples: 

Variable Refers to 

ARRAY (1) An element of one-dimensional 

array ARRAY. 

MAT (1,2,3) An element of the three-dimensional 

array MAT. 

The subscripts of an array variable may be integer or floating point constants or expressions. Floating 
point subscripts will be converted to integers before use. 

An array variable's extent is determined by the dimensions it is assigned. This may be done by a 
DIMENSION or COMMON statement or as part of a type-declaration statement. Array dimensioning 
is discussed in Chapter 6. 

2.3 EXPRESSIONS 

An expression is a combination of primary units (constants and variables) with operators which specify 
a computation to be performed to obtain a new value. An expression may, itself, function as a primary 
unit in another expression if it is enclosed in parentheses. 

2.3.1 Arithmetic Expressions 

An arithmetic expression is a combination of constants, variables, and expressions separated by the 

arithmetic operators given below. 

Operator Operation 

unary minus 
** exponentiation 

* multiplication 

/ division 

+ addition 

subtraction 
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Additional computations (such as sine, cosine, square root) may be specified via a function reference 
(see Chapter 7 for a description of function definition). A function reference acts as a basic element 
in an expression since all functions return a single value. The reference SQRT(4.) (assuming the 
existence of a function named SQRT which returns the square root of its argument) represents the value 
2. in an expression. 

An arithmetic expression need not have operators at all but may simply be a basic element. Thus, 

2.718 

Z(N) 

MAX 



are all legal expressions. 

Any numeric expression may be enclosed in parentheses and considered to be a basic element. 

(X+Y)/2 

(ZETA) 

(COS(SIN(PI*M)+X)) 

Numeric expressions which are preceded by a + or - sign are also numeric expressions: 

+X 

-(ALPHA *BETA) 

-SQRT (-GAMMA) 

If the precedence of numeric operations is not given explicitly by parentheses, it is understood to be 
the following (in order of decreasing precedence): 

Operator Explanation 

** numeric exponentiation 

* and / numeric multiplication and division 

+ and - numeric addition and subtraction 

In the case of operations of equal hierarchy, the calculation is performed from left to right. 

No two numeric operators may appear in sequence. For instance: 
X*-Y 

is improper. Use of parentheses yields the correct form: 
X*(-Y) 
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A fypical numeric expression using numeric operators and a function reference, the expression for one 
of the roots of the general quadratic equation 



-b+ ^ b^ -4ac 



2a 
would be coded as: 



(-B+SQRT(B**2-4.*A*C))/(2. *A) 



Any type of quantity (logical, integer, real, double-precision, complex) may be combined with any 
other in an arithmetic expression. The type of resultant expression when any two types are combined 
may be found in Table 2-1 on the following page. 

Logical, octal and Hollerith (literal) constants are treated as integer constants when they are com- 
bined with other elements in arithmetic expressions. Data in a Hollerith constant beyond its first 16 
bits (2 characters) is ignored. 

Example: 

1 = 1 

J=I+'ABCD' 
K = I*. TRUE. 

J will contain the result of adding 1 to the word whose low order byte is a 101(A) and whose high 
order byte is a 102(B). The result is an octal 041102 or the ASCII 'BB'. K will contain a -1, since 
the value of .TRUE, taken as an integer is -1. 

In mixed-mode expressions the logical, octal, or Hollerith entity will be converted as an integer to 
the appropriate mode and then combined. 

2.3.2 Logical Expressions 

A logical expression combines logical constants, logical variables, logical function references, and 
arithmetic expressions, using the logical or relational operators given below. 

Logical Operator Meaning 

.NOT. expression Has the value .TRUE, only 1f expression is 

.FALSE., and has the value .FALSE, only if 
expression is .TRUE. 

(Continued on next page) 
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Logical Operator 



Meaning 



expr1.AND.expr2 
expri .OR.expr2 

Relational Operator 



Has the value .TRUE, only if exprl and expr2 
are both .TRUE., and has the value .FALSE, 
if either exprl or expr2 is .FALSE. 

(Inclusive OR) Has the value .TRUE, if either 
exprl or expr2 is .TRUE., and has the value 
.FALSE, only if both exprl and expr2 are 
.FALSE. 

Relation 



.GT. 




greater than 


.GE. 




greater than or equal to 


.LT. 




less than 


.LE. 




less than or equal to 


.EQ. 




equal to 


.NE. 




not equal to 
Table 2-1 




Types 


of Resultant Subexpressions 







Type of Quantity 


+ - * / 


Real 


Integer 


Complex 


Double 
Precision 


Logical 


Type of 
Quantity 


Real 


Real 


Real 


Complex 


Double 
Precision 


Real 


Integer 


Real 


Integer 


Complex 


Double 
Precision 


Integer 


Complex 


Complex 


Complex 


Complex 


Complex 


Complex 


Double 
Precision 


Double 
Precision 


Double 
Precision 


Complex 


Double 
Precision 


Double 
Precision 


Logical 


Real 


Integer 


Complex 


Double 
Precision 


Logical 



NOTE: the following special rules apply for determining the type 
resulting from expressions of the form A**B: 

if B is type INTEGER, the expression is of the same type as A 
if A and B are both REAL, the expression is REAL 
if A or B, or both A and B, are double-precision, the expression 
is double-precision. 

These are the only cases allowed. 
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Logical operators can combine only basic elements whose type is LOGICAL (see Chapter 6). Relational 
operators compare units of type integer, real, or double-precision. Real and double-precision units 
may be combined. The value of such an expression will be of type LOGICAL (that is, .TRUE, or 
.FALSE.). The relational operators .EQ. and .NE. may also be used with complex expressions. 
(Complex quantities are equal if the corresponding parts are equal .) 

A logical expression, like an arithmetic expression, may consist of basic elements or a combination of 
elements, as in 

.TRUE. 
X.GE.3.14159 

and 

TVAL. AND. INDEX 
BOOL(M). OR. K.EQ. LIMIT 

A logical expression may also be enclosed in parentheses and function as a basic element. Thus, the 
expressions 

A.AND.(B.OR.C) 
and 

(A.AND.B).OR.C 
are evaluated differently. 

No two logical operators may appear in sequence, except in the case where .NOT. appears as the 
second of two logical operators. Any logical expression may be preceded by the unary operator .NOT. 
as in: 

.NOT.T 

.NOT.X+7.GT.Y+Z 

BOOL(K).AND..NOT.(TVAL.OR.R) 

Logical and relational operations (unless overridden by parentheses) are carried out in the following 
order: 

.GT.,.GE.,.LT., .LE.,.EQ.,.NE. 

.NOT. 

.AND. 

.OR. 
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For example, the logical expression 

.NOT.ZETA**2+Y*MASS.GT.K-2.0R.PARITY.AND.X.EQ.Y 

is interpreted as 

( . NOT . (((ZETA**2)+(Y*MASS)) . GT . (K-2))) .OR . (PARITY .AND . (X . EQ . Y)) 
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CHAPTER 3 
ASSIGNMENT STATEMENTS 



A variable may be assigned a value at any point in the source program. During program execution, 
the most recent assignment determines the variable's value in subsequent statements. There are two 
statements which may be used to assign a value to a variable - the Arithmetic statement which assigns 
ic or logical value and the ASSIGN statement which assigns a statement number. 



a numeric 



3.1 THE ARITHMETIC STATEMENT 



Form 


A=B 


Where 


A is a variable name 

B is an expression 

= is the replacement operator 


Effect 


The variable named A is assigned the 
value of expression B. 



The Arithmetic statement associates a variable name with a value. The name may then be used in sub- 
sequent expressions to represent this value. Thus, if the Arithmetic statement A = 2 is executed first, 
the statement B = A + 1 is equivalent to the statement B = 3. 

Since the equal sign in an Arithmetic statement does not indicate equality but, rather, a replacement, 
statements of the form 

1=1 + 1 

are perfectly legal . The Arithmetic statement is, in fact, the only means in FORTRAN by which the 
results of computations represented by expressions may be stored. 

In the following examples, the expression to the right of the equal sign is evaluated and converted 
when necessary to conform to the type of the variable to the left before assignment. That is, if a real 
expression is assigned to an integer variable, the value of the expression will be converted to an integer 
before assignment . 
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Examples: 

ANS=Y*(X**2+Z) 
I =I*N 

X(J) = A(J)-B(J) 
P= .TRUE. 

The expression to be assigned must be capable of yielding a value which conforms to the type attribute 
of the variable which is being assigned. The compiler will perform conversions in accordance with 
Table 3-1 below. 



Table 3-1 
Conversion Rules for Assignment Statements 



Variable 
Type 


Expression Type 


Real 


Integer 


Complex 


Double 
Precision 


Logical, or 
Octal Constant 


Literal 
Constant 


Real 


D 


C 


R,D 


H,D 


C 


D,4 


Integer 


C 


D 


R,C 


H,C 


D 


D,2 


Complex 


D,R,I 


C,R,I 


D 


H,D,R,I 


D,R,I 


D,8 


Double 
Precision 


D,H,L 


C,H,L 


R,D,H,L 


D 


D,H,L 


D,8 


Logical 


C 


C 


R,C 


H,C 


D 


D,2 



D 

C 

R 

I 

H 

L 

2 

4 

8 



Direct replacement 

Conversion between integer and floating point 

Real only (imaginary part set to 0) 

Set imaginary part to 

High order portion of expression assigned 

Set low order part to 

Use the first character in the literal and one character following 

Use the first character in the literal and three characters following 

Use the first character in the literal and seven characters following 
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3.2 THE ASSIGN STATEMENT 



Form 


ASSIGN n TO var 


Where 


n is a statement number 

var is a variable of type INTEGER 


Effect 


The variable represents the assigned 
statement number and may be used in an 
assigned GO TO statement (Chapter 4) . 



The ASSIGN statement is used in conjunction with an assigned GO TO statement (4.1 .3) to permit 
symbolic referencing of statements. The statement number assigned must be that of an executable 
statement. An integer variable which has obtained its value via an ASSIGN statement must be rede- 
fined via an Arithmetic statement before it can be used in any context other than the GO TO state- 
ment. For example, the statement: 

ASSIGN 10 TO COUNT 

associates the variable name COUNT with statement number 10 and the statement: 
COUNT =COUNT+l 

is invalid. The statement becomes valid, however, if preceded by the statement: 
COUNT = 10 

which assigns count the integer value of 10. 
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CHAPTER 4 
CONTROL STATEMENTS 



Statements are normally executed in the sequence in which they appear in the source program. This 
sequence may be altered by the occurrence of any of the FORTRAN control statements described in 
this chapter. These are: GO TO, IF, DO, CONTINUE, PAUSE, STOP, CALL and RETURN. The 
CALL and RETURN statements, which transfer control to and from subroutines, are described in 
Chapter 7. 

4.1 THE GO TO STATEMENT 

The GO TO statement transfers control directly to a specified statement. There are three forms of the 
GO TO statement - unconditional, computed, and assigned. A GO TO statement may appear any- 
where in the executable portion of the source program except as the terminal statement in a DO loop 
(4.3). 

4.1.1 Unconditional GO TO Statements 



Form 


GO TO n 


Where 


n is the statement number of an 
executable statement 


Effect 


Control is transferred to statement n^. 



When control is transferred by a statement of the form GO TO n, the usual sequential processing 
continues at the statement whose number is n. 
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4.1.2 Computed GO TO Statements 



Form 



Where 



Effect 



GO TO (n^,n2, ..., n|^) i 

NOTE: An optional comma 
may follow the right parenthesis. 



n■^, n2, . . . , n|^ are statement numbers 
i is an integer variable or constant 



Control is transferred to the statement 
whose number is ith in the list. 



The integer expression in a computed GO TO statement acts as a switch, as in the example given below. 
GOTO (20, 10,5), K 

If K = 1, control will be transferred to statement 20; if K = 2, to statement 10; or if K = 3, to state- 
ment 5. If K has a value less than 1 or greater than 3 in this example, an error will be reported when 
the program is executed. 

4.1.3 Assigned GO TO Statements 



Form 


GO TO K 

or 

GOTO K(n,,n2, ...,n,^) 

NOTE: An optional comma 
may follow K. 


Where 


K is an integer variable 

n],n2, . . ., n|^ are statement numbers 


Effect 


Control is transferred to the state- 
ment whose number is currently 
associated with the variable K via 
an ASSIGN statement. 



An ASSIGN statement, as discussed in Chapter 3, defines an integer variable as a statement number. 
Thus, when the statement 

ASSIGN 10 TO LOOP 
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has been executed, the programmer may subsequently transfer control to statement 10 by saying: 
GO TO LOOP 

He may also say: 

GO TO LOOP, (10, 20, 100) 

which will transfer control to whichever statement number is currently associated with LOOP. If the 
name LOOP is not defined as one of the listed statement numbers, the GO TO statement will not be 
executed and an error message will be printed. 

4.2 THE IF STATEMENT 

An IF statement causes control to be transferred on the basis of the values of specified expressions. 
There are two forms of the IF statement - arithmetic and logical . 

4.2.1 Arithmetic IF Statements 



Form 


IF (arithmetic expression) n], n2, n^ 


Where 


n,, nj, n, are statement numbers 


Effect 


Control is transferred to: 
ni if expression <0 
n2 if expression = 
ng if expression >0 



An IF statement transfers control to one of three statements, as shown in the model, according to the 
value of the expression given. For example, the statements: 

ALPHA = 3 

IF (ALPHA) 10, 20, 30 
will transfer control to statement number 30. Complex expressions may not be used in an IF statement. 
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4.2.2 Logical IF Stat-emerifs 



Form 


IF (logical expression) statement 


Where 


statement may be any executable state- 
ment except a logical IF or a DO 


Effect 


The statement given is executed if the 
expression has the value .TRUE.; other- 
wise, the next statement in sequence is 
executed . 



Examples: 



IF (T.OR.S)X=Y+ 1 

IF (Z.GT.X(K)) CALL SWITCH (S,Y) 

IF (K.EQ. INDEX) GO TO 15 



4.3 THE DO STATEMENT 



Form 


DO n i = m], m2/ m» 


Where 


n is a statement number 

i is an integer variable 

m], m2, m- are positive integer 

variables or constants 


Effect 


Statements following the DO up to 
and including statement n are exe- 
cuted repeatedly for values of i 
starting with m^, and incremented 
by m3 until i is greater than or equal 
to m2. 



The statements which are executed as a result of a DO statement are called the range. The variable i 
is called the index . The values m^, m-, and m„ are, respectively, the initial, limit, and increment 
values of the index. When the DO statement occurs, its range is first executed for i = m, . Subsequent 
iterations are f or i = i + m_. If m-, is not supplied by the programmer, an increment of 1 is assumed. 
The final iteration is for i_> m„. A zero or negative m„ value is not permitted. The range of a DO is 
always executed at least once, regardless of the values of the limit and increment. After each execu- 
tion of the range, the increment value is added to the value of the index and the result is compared 
with the limit value. If the value of the index is not greater than the limit value, the range is exe- 
cuted again using the new value of the index. 
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Examples: 

DO 20 1 =5, 100, 2 
(final tferation for I = 99) 

DO 100 I = 0, 100, 2 
(final iteration for I = 100) 

After the last execution of the range, control passes to the statement immediately following it. This 
exit from the range is called the normal exit. Exit may also be accomplished by the execution of a 
control statement within the range. 

The values of the limit and increment variables and the index of the DO loop may not be altered with- 
in the range of the DO statement. When a statement transfers control outside the range of a DO loop, 
e.g., by a GO TO or IF, the index retains its current value and is available for use as a variable. 
The value of the index variable becomes undefined when the DO loop it controls is exited normally. 
A transfer from outside the range into a DO loop is not legal . 

The terminal statement of a DO range may not be a GO TO, DO, RETURN, STOP, PAUSE, or an 
arithmetic IF statement. A logical IF statement is allowed as the last statement of the range, provided 
that it does not contain any of the statements mentioned above. 

As an example, consider the sequence: 

DO 5 K = 1 , 4 

5 IF (X (K) .GT. Y (L)) Y (K) = X (K) 

6 . . . 

In this case, the range is considered ended when, and if, control would normally pass to the statement 
following the entire logical IF statement. Statement 5 is executed four times whether the statement 
Y(K) = X(K) is executed or not. Statement 6 is not executed until statement 5 has been executed four 
times. Note that if statement 5 were: 

5 IF (X (K) .GT. Y (L)) GO TO 10 

it would be an error. 

The range of a DO statement may also include other DO statements. This is referred to as nesting. 
The range of each nested DO statement must fall entirely within the range of the outer DO statement; 
that is, the ranges of two DO statements must intersect completely or not at all. Figure 4-1 illustrates 
the order in which nested DOs are executed. 



4-5 



CHAPTER 5 
DATA TRANSMISSION STATEMENTS 



Data transmission statements govern the transfer of data between internal storage and peripheral devices. 
These include three distinct types of statement - data description statements (FORMAT and DEFINE 
FILE); input-output statements (READ and WRITE); and device control statements (FIND, BACKSPACE, 
REWIND, and END FILE). 

5.1 DATA DESCRIPTION STATEMENTS 

The data description statements - FORMAT and DEFINE FILE - describe the form and arrangement of 
data on the selected peripheral device; FORMAT describes a record, DEFINE FILE a disk file. 

5.1.1 The FORMAT Statement 



Form 


n FORMAT (field description | .../...) 


Where 


n is a statement number 


Effect 


Specified either type of conversion to be 
performed between the internal and ex- 
ternal representation of data or format 
of fixed data. 



A FORMAT statement may describe one or more records. The character / (slash) indicates that a new 
record is being described. For example, the statement: 

FORMAT (308/l5,2F8.4) 

is equivalent to: 

FORMAT (308) 

for the first record and: 

FORMAT (I5,2F8.4) 
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for the second record. Each record description may consist of one or more field specifications, a 
field being a consecutive series of characters within the record. Field specifications are separated by 
commas as shown above. The separating comma may be omitted when a slash is used. When n slashes 
appear at the end or beginning of a format, n blank records may be written on output or records skipped 
on input. When n slashes appear in the middle of a format, n-1 blank records are written or n-1 records 
skipped . 

Both the slash and the closing parenthesis at the end of the format indicate the termination of a record. 
If the list of an input/output statement dictates that transmission of data is to continue after the closing 
parenthesis of the format is reached, the format is repeated starting with that group repeat specification 
terminated by the last right parenthesis of level one (or level zero if no level one group exists). 



Thus, the statement 



FORMAT (F7.2,(2(E15.5,E15.4),I7)) 

-J t* level 2— J T^l 
level 1 — ' level 1 ' 



level -' T * level 2 —J ] *— " level 



causes the format 

F7.2,2(E15.5,E15.4),I7 

to be used on the first record, and the format 
2(E15.5,E15.4),I7 

to be used on succeeding records. 

As a further example, consider the statement: 

FORMAT (F7.2/(2(E15.5,E15.4),I7)) 

The first record has the format 
F7.2 

and successive records have the format 
2(E15.5,E15.4),I7 

The ASCII character string comprising a format specification may be stored as an array. Input/output 
statements may then refer to the format by giving the array name, rather than the statement number of 
a FORMAT statement. The stored format has the same form as a FORMAT statement excluding the word 
"FORMAT." The enclosing parentheses are required. 
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Repetition of a field specification may be indicated by preceding a field descriptor by an unsigned 
integer giving the number of repetitions desired. 

A group of field specifications may be repeated by enclosing the group in parentheses and preceding 
the whole with the repetition number. 

FORMAT statements may be placed anywhere within the executable portion of the source program. 
Unless the FORMAT statement contains only alphanumeric data for direct input/output transmission, it 
will be used in conjunction with the list of a data transmission statement. 

The form of a field specification depends on the type of field being described. There are three basic 
types - numeric, logical, and Hollerith. In addition, a blank field description may be given to skip 
portions of an input record or to imbed blanks within an output record. 

5.1.1.1 Numeric Fields - Numeric fields are specified by one-letter codes which designate the type 
of conversion to be performed. Two parameters may appear in a numeric field description, depending 
on the field type. These are: an integer (w) specifying the field width (which may be greater than 
required to provide for blank columns between numbers) and an integer (d) specifying the number of 
decimal places to the right of the decimal point or, for G conversion, the number of significant digits. 
(For D, E, F, and G input, the position of the decimal point if present in the external field, takes 
precedence over the value of d in the format.) Conversion codes and the corresponding internal and 
external forms of the numbers are listed in Table 5-1 be|ow. 

Table 5-1 
Numeric Field Codes 



Conversion 
Code 


Internal 
Form 


External 
Input Form 


External 
Output Form 


D 


Double precision 


Decimal number with or 
without a . or exponent 
field 


Decimal number with a D 
exponent field and a decimal 
point 


E 


Real 


Decimal number with or 
without a . or exponent 
field 


Decimal number with a decimal 
point and an E exponent field 


F 


Real 


Decimal number with or 
without a . or exponent 
field 


Decimal number with a decimal 
point 


G 


Real 


Decimal number with or 
without a . or exponent 
field 


Decimal number with a decimal 
point and with or without an E 
exponent field (see Table 5-2) 


I 


Integer 


Decimal number without 
a . or exponent 


Decimal number without a 
decimal point or exponent 


O 


Integer 


Octal number 


Octal number 
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The allowable numeric field description forms ore: 

(1) Dw.d 

(2) Ew.d 

(3) Fw.d 

(4) Iw 

(5) Ow 

(6) Gw.d 



For example. 



FORMAT (I5,F10.2,D18.10) 



could be used to output the line 

bbb32bbbb- 1 7 . 60bbb . 596254768 1 D+03 

on the output listing. (The letter b represents a blank or a space.) 

The G format is the general format code that is used to transmit data. The rules for input are the same 
as E format. The form of the output conversion is a function of the magnitude of the data being con- 
verted. Table 5-2 shows the magnitude of the external data, M, and the resulting method of conversion. 



Table 5-2 
Magnitude of Internal Data 



Magnitude of Data 


Resulting Conversion 


0.1< M<1 


F(w-4).d, 4x 


1<M<10 


F(w-d).(d-l), 4x 


10«^-2<M<10^"' 


F(w-4).1, 4x 


lod-1 <M<10=' 


F(w-4).0, 4x 


All others 


Ew.d 



The field width (w) should always be large enough to include spaces for the decimal point, sign, and 
exponent. In all numeric field conversions, if w is not large enough to accommodate the converted 
number, asterisks will be printed for the field. If the number is less than w spaces in length, the 
number is right-adjusted in the field. 
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Scale factors may be specified for D, E, F, and G conversions. A scale factor is written: 

nP 
where P is the identifying character and n is a signed or unsigned integer that specifies the scale factor. 

For F type conversions, the scale factor specifies a power of ten so that 
external number = (Internal number)* 10 ^**^°'® ^°^*°'^^ 

For D and E conversions, the scale factor multiplies the fraction by a power of ten, but the exponent 
is changed accordingly leaving the number unchanged except in form. For example, if the statement: 

FORMAT (F8.3,E16.5) 
corresponds to the line 

bb26.451bbbb-0.41321E-01 
then the statement 

FORMAT (-1PF8.3,2PE16.5) 
would correspond to the line 

bbb2.645bbb-41.3215E-03 

For G type output conversion, the scale factor is not used unless the magnitude of the number is such 
that E format is used. 

In input operations, the scale factor is not used if there is an exponent in the external field. 

When no scale factor is specified, a scale factor of zero is assumed. Once a scale factor has been 
specified, however, it holds for all subsequent D, E, F, and G type conversions within the same 
format unless another scale factor is encountered. A zero scale factor may be resumed via an explicit 
specification. Scale factors have no effect on I and O type conversions. 

Complex quantities are transmitted as two independent real quantities. The format specification con- 
sists of two successive real specifications or one repeated real specification. For instance, the 
statement 

FORMAT (2E15.4,2(F8.3,F8.5)) 

could be used in the transmission of three complex quantities. 
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5.1.1.2 Logical Fields - Logical data can be described in a manner similar to numeric data . A 
logical field description has the form: 

Lw 

where L is the conversion code character and w is an integer specifying the field width. The data is 
transmitted as the value of a logical variable in the input/output list. On input, the first nonblank 
character in the data field must be T or F; the value of the logical variable will be stored as true or 
false, respectively. If the data field is blank or empty, a value of false will be stored. On output, 
w minus 1 blanks followed by the letter T or F, according to the variable's value, will be transmitted. 
For example, if the specification were L10, the output for the value .TRUE, would be: 

bbbbbbbbbT 

5.1 .1 .3 Hollerith Fields - Hollerith data can be described in a manner similar to numeric data, as 
in: 

Aw 

where A is the conversion code character and w, the number of characters in the field. The alpha- 
numeric characters are transmitted as the value of a variable in an input/output list. The variable 
may be of any type. The sequence: 

READ(2,5)V 
5 FORMAT (A4) 

causes four characters to be read and placed in memory as the value of the variable V. 

The value of w is limited to the maximum number of characters which can be stored in the space 
allotted for a single variable. 

If w exceeds this amount, the leftmost characters are lost on input, and on output the w characters 
will appear right-justified in the external output field, with blanks filled in on the left. 

If w is less than the number of characters which can be stored in the space allotted to the variable, 
on input the characters are left-justified and blank-filled on the right of each list item. On output 
the leftmost w characters in the variable are transmitted to the output field. 

Hollerith data may also be transmitted directly into or from the FORMAT statement. The Hollerith 
string may be specified in two forms. One, called H-conversion, is: 

nH 
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where H is the control character and n is the number of characters in the string (including blanks). For 
example, the format in the statement below can be used to print PROGRAM COMPLETE on the output 
listing. 

FORMAT (17H PROGRAM COMPLETE) 

Referring to this format in a READ statement would cause the 17 characters to be replaced with a new 
string of characters from the input file. 

In the second form, the Hollerith data is simply enclosed in single quotes. The result is the same as 
in H-conversion; on input, the characters between the quotes are replaced by input characters, and, 
on output, the characters between the quotes (including blanks) are written as part of the output data. 
A quote character within the data is represented by two successive single quotes as with Hollerith 
constants . 

A Hollerith format field may be placed among other fields of the format. For example, the statement: 

FORMAT (15, 7H FORCE=F10.5) 
can be used to output the line: 

bbb22bFO RC E=bb 1 7 . 6890 1 
Note that the separating comma may be omitted after a Hollerith format field. 

5.1 .1 .4 Carriage Control - The first character of each ASCII record controls the spacing of the line 
printer or teleprinter. This character may be established by beginning a FORMAT statement for an 
ASCII record with IHa, where a is the desired control character. The line spacing actions, listed 
below, occur before printing. 

Effect 



Character 




blank 





zero 


1 


one 


+ 


plus 



advance carriage to next line 

skip a line (double space) 

form feed - go to top of next page 

suppress skipping - will overprint 
line 



If any other character appears first, it will be treated as a blank. 
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5. 1 . 1 .5 Record Layout Specification - Input and output can be made to begin at any position within 
a FORTRAN record by use of a field description of the form: 

Tw 

where T is the spacing control character and w is an unsigned integer constant specifying the character 
position in a FORTRAN record where the transfer of data is to begin. For printed output, w corresponds 
to the (w-l)th print position, since the first character of the output buffer is a carriage control charac- 
ter and is not printed. (A blank carriage control indicator is assumed.) 

For example, 

2 FORMAT (T50, "BLACK'TSO, 'WHITE') 

would cause the following line to be printed: 

Print Position 29 Print Position 49 
—J -^ 

WHITE BLACK 

For input, the statement 

I FORMAT (T35, 'MONTH') 
READ (3,1) 

causes the first 34 characters of the input data to be skipped, and the next five characters would re- 
place the characters M, O, N, T, and H in storage. If an input record containing 

ABCbbbXYZ 
is read with the format specification 

10 FORMAT a7,A3,Tl, A3) 
then the characters XYZ and ABC are read, in that order. 

Blanks may be introduced into an output record or characters skipped on an input record by use of the 
specification: 

nX 

where the spacing control character is X and n is the number of blanks or characters skipped and must 
be greater than zero. For example, the statement 

FORMAT (5H STEPI5,10X2HY=F7.3) 
may be used to output the line 

bSTEPbbb28bbbbbbbbbbY=b-3.872 
The preceding blank would not be printed on teleprinter or line printer. 
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5.1.2 The DEFINE FILE Statemenl: 



Form 


DEFINE FILE a^ (m^, 1^, U, v^). 


Where 
Effect 


a is an integer constant or variable name that is the 
symbolic designation for this file (see WRITE state- 
ment. Section 5.2.3, for more information on this 
field), m is an integer constant or variable name 
that defines the number of records in the file. 

1 is an integer constant or variable name that de- 
fines the length (in words) of each file record. 

U is a fixed argument designating that the file is 
unformatted . 

V is an integer variable name, called the associated 
variable, which is set at the conclusion of an input- 
output operation on the file to point to the next rec- 
ord. 

Describes a disk file for use with input-output 
statements. 



The DEFINE FILE statement is applicable to disk files only, and is required so that they may be 
referenced as direct access files by input-output statements. 

The associated variable (v) in a DEFINE FILE statement is used to maintain an index of records pro- 
cessed. It is set automatically after an input-output statement is executed. 

The statement: 

DEFINE FILE 1(1000, 1 00, U, VI) 

specifies a 1000-record file, each record of which is 100 words long. The variable VI will maintain 
an index of records processed, providing a pointer to the next record to be processed. 



5-9 



5.2 INPUT-OUTPUT STATEMENTS 

The Input-output statements, READ and WRITE, govern transfer of data records between internal storage 
and peripheral devices. Each statement may contain an input-output list naming the variables and 
array elements to be given values on input or whose values are to be transmitted on output. 

Both formatted and unformatted records may be transmitted. A formatted record, a string of characters, 
requires the use of a format specification. 

5.2.1 Input-Output Lists 

An input-output list contains variable names and array elements whose values will be assigned pn input 
or written on output. During input, the new values of listed variables may be used in subscript or 
control expressions for variables appearing later in the list. For example: 

READ(13)L,A (L),B(L+1) 

reads a new value for L and uses this value in the subscripts of A and B. 

The transmission of array variables may be controlled by indexing similar to that used in the DO state- 
ment by including as a list element a parenthesized list of control variables followed by the index 
control . For example, 

READ(7) (X(K),K=1,4),A 

is equivalent to; 

READ(7)X(1),X(2),X(3),X(4),A 

The indexing may be compounded by nesting as in the following: 

READ(ri) ((MASS(K,L),K=1,4),L=1,5) 
The above statement reads in the elements of array MASS in the following order: 

MASS(1,1),MASS(2,1),...,MASS(4,1),MASS(1,2),...,MASS(4,5) 

If an entire array is to be transmitted, the indexing may be omitted and only the array name written. 
The array is transmitted in order of increasing subscripts with the first subscript varying most rapidly. 
Thus, the example above could have been written: 

READ(11)MASS 

assuming that the array MASS is dimensioned MASS(4,5). 
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5.2.2 Input-Output Records 

All data is transmitted by an input-output statement in terms of records. The maximum amount of infor- 
mation in one record and the manner of separation between records depends upon this medium. For 
punched cards, each card constitutes one record; on a teletypewriter, a record is one line; for ASCII 
records, the amount of information is specified by the FORMAT reference and the I/O list; for magnetic 
tape binary records, the amount of information is specified by the I/O list; for disk records, DEFINE 
FILE is used. 

Each execution of an input or output statement initiates the transmission of a new data record. If an 
input-output statement requests less than a full record of information, the unrequested part of the record 
is lost and cannot be recovered by another input-output statement without repositioning the record. 
Repositioning is not, however, possible on all devices (see Section 5.3), If an input-output list re- 
quires more than one ASCII record of information, successive records are read. 

5.2.3 The WRITE Statement 



Form 


WRITE (u,f) iist^l formatted WRITE 

WRITE (u,f) J 

WRITE (u) list unformatted WRITE 

WRITE (a'r) list direct access disk WRITE 

WRITE (u,f,END=n) list ) 

WRITE (u,f,ERR=n) list V WRITE and 

WRITE (u,f,END=n,ERR-n) list / '°"'^®'" '=°"^'"°' 

' -^ if errors 


Where 


u is a unit designation 

f is a format reference 

list is an I/O list 

a is a symbolic disk file number 

r is an associated variable (record pointer) 


Effect 


Output is performed as specified by the 
arguments of the WRITE statement. 



A formatted WRITE statement may appear with or without an I/O list. If a list is provided, the values 
of the variables in the list are read from memory and written on the unit designated in ASCII form. 
The data is converted to external form as specified by the designated FORMAT statement. If no list 
is supplied, information is read directly from the specified format and written on the unit designated in 
ASCII form. 

An unformatted WRITE statement must have an l/O list. The values of the variables in the list are read 
from memory and written on the unit designated in binary form. 
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A direct access WRITE statement outputs a fixed-length record directly into a disk file. The file must 
be defined previously via the execution of an appropriate DEFINE FILE statement. 

Notes On Unit Designation (u) And Symbolic Disk File Number (a) 

The unit designation (u) and symbolic disk file number (a) referred to in READ (see next section), 
WRITE, and DEFINE FILE statements may be integers in the range 1 to 8. Of the eight numbers, 6 is 
the keyboard, 5 is the line printer and 4 is the high-speed paper-tape reader. The remaining numbers 
are assumed to refer to files on a disk. 

Thus, READ (4,10) refers to input from the high-speed paper-tape reader, WRITE (5,1) refers to output 
on the line printer, and READ (7, 1 1) refers to input from the disk. Note that u and a_are both drawn 
from the same set of numbers, and they cannot conflict. 

The user may override these device number assumptions by two methods. He may either use the SETFIL 
subroutines to override the unit number assumptions, or he may employ the ASSIGN command of the 
DOS Monitor. The ASSIGN command (see Disk Operating System Monitor Manual) allows the over- 
ride to occur at run-time, just before the program is executed. The SETFIL subroutine allows the over- 
ride to be specified in the program, thereby requiring no intervention at run-time. 



5.2.4 The READ Statement 



Form 



Where 



Effect 



READ (u,f) list I formatted READ 

READ (u,f) J 

READ (u) list \ unformatted READ 

READ (u) J 

READ (a'r) list direct access disk READ 

READ (u,f,END=^) list \ READ and 

READ (u,f,ERR=n) list >" transfer control 

READ (u,f,END=n,ERR=n) list J 

f is a format reference 

u is a unit designation 

r is an associated variable record pointer 

a is a symbolic disk file number 

n is a statement number 

Input is performed according to the arguments 
of the READ statement 



A formatted READ statement causes information to be read from the specified unit and put in memory. 
The data are converted from external to internal form as specified by the referenced FORMAT state- 
ment. If an I/O list is provided, the data are stored as the values of listed variables. The second 
form of the READ statement is used if the data are transmitted directly into the specified format. 



5-12 



An unformatted READ st-atement causes binary information to be read from tiie unit designated and 
stored in memory as values of the variables in the I/O list, if any. 

A direct access READ statement provides random access to fixed-length records in a disk file. The file 
whose records are to be read must be defined by the DEFINE FILE statement. 

READ and transfer control statements cause control to be transferred to the statement specified if an 
end-of-file or error condition is encountered during input. The arguments END=n and ERR=n may 
appear separately or together. If an end-of-file is encountered during a READ, control transfers to 
the statement specified by END=n. If an END parameter is not specified, I/O on that device termi- 
nates and the program halts with an error message. If an error on input is encountered, control transfers 
to the statement specified by ERR=n. If an ERR=n parameter is not specified, the program halts with 
an error message . 

Example: 

READ (7,7, END=888,ERR=999)A 

888 (control transfers here if an end-of-file is encountered) 

999 (control transfers here if an error on input is encountered) 

5.3 DEVICE CONTROL STATEMENTS 

There are four device control statements - FIND (which applies to a moving head disk only) and BACK- 
SPACE, END FILE, and REWIND which apply to any device which may be automatically repositioned 
(magnetic tape, DECtape, and disk). Their forms and effects are listed below in Table 5-3. 



Table 5-3 
Device Control Statements 



Statement 


Effect 


FIND(a'b) 
BACKSPACE u 


The disk read/write mechanism is positioned 
to record b of file a. (a is assigned via a 
DEFINE FILE statement. The record number 
b is an integer constant or variable.) 

Repositions the designated unit to the begin- 
ning of the file and spaces forward to n-2 
records (n is the number of the record pro- 
cessed before the BACKSPACE). 



(Continued on next page) 
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Table 5-3 (Cont) 
Device Control Statements 



Statement 


Effect 


END FILE u 


Activates the Monitor's CLOSE facility for 
the designated unit, thereby writing an 
END-OF-FILE. 


REWIND u 


Repositions the designated unit to the 
beginning of the file. 
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CHAPTER 6 
SPECIFICATION STATEMENTS 



Specification statements may be divided into three categories. First, there are storage specification 
statements - DIMENSION, COMMON, and EQUIVALENCE - which give the compiler storage allo- 
cation instructions. Second, there are data specification statements - DATA and BLOCK DATA - which 
are used to enter values. Third, there are type declaration statements - INTEGER, REAL, DOUBLE 
PRECISION, COMPLEX, LOGICAL, BYTE, and IMPLICIT - which specify the type attribute of a 
variable. These are all nonexecutable statements which must precede the executable portion of the 
program. DATA statements must follow all other specification statements. 

6.1 STORAGE SPECIFICATION 
6.1.1 The DIMENSION Statement 



Form 


DIMENSION array name (V^, y^, V^)... 


Where 


^1a ^2> ^^'^ ^T *^''® ^^^ maximum value the 
subscript they represent may assume 


Effect 


The array name is assigned the type array. 
Storage is allocated according to the 
dimensions given. 



Each array specification gives the array name and the maximum values which each of its subscripts may 
assume. Each value must be an unsigned positive integer constant or variable. Arrays may also be 
declared in the COMMON or TYPE declaration statements in the same way: 

COMMON X(10,4),Y,Z 
INTEGER A(7,32),B 

No array for which dimension information is not supplied may be referenced as an array variable. 
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A subprogram may establish adjustable arrays via reference to an array which has been allocated storage 
by the calling program. In this case, both the array name and the subscript values are expressed as 
dummy arguments in the subroutine, as in: 

DIMENSION A(X,Y,Z) 

In order to do this, the programmer must establish A, X, Y, and Z as required arguments. The dummy 
array must not exceed the dimensions of the main-program array but may be smaller if the call provides 
lower subscript values than those of the main program dimensioning or if the initial array element 
referenced is not the beginning of the main-program array. 

6.1.2 The CO MMO N Statement 



Form 


COMMON/BLOCK l/A,B,C/BLOCK2/b,E,F/. . . 


Where 


BLOCK l,BLOCK2,... are the block names 
A,B,C. . .are the variables to be assigned to 
each block 


Effect 


Specified variables or arrays are stored in an 
area available to other programs. 



By means of COMMON statements, the data of a main program and/or the data of its subprograms may 
share a common storage area. The common area may be divided into separate blocks which are identi- 
fied by block names. A block is specified as follows: 

/block name/varl, var2, ... 

The variables which follow the block name indicate scalar or array variables assigned to the block. 
They are placed in the block in the order in which they appear in the block specification. For 
example, the statement 

common/r/x,y,t/cAJ,v,w,z 

indicates that the elements X, Y, and T are to be placed in block R in that order, and that U, V, W, 
and Z are to be placed in block C. A common block may have the same name as a variable in the 
same program . 

Block entries are linked sequentially throughout the program, beginning with the first COMMON 
statement. For example, the statements 

CO MMO N/D/ALP HA/ft/A , B/C/S 
COMMON/C/X,Y/R/U,V,W 
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have the same effect as the statement 

common/d/alphaA/a,b,u,v,w/c/s,x,y 

One block of common storage, referred to as blank common, may be left unlabeled. Blank common is 
indicated by two consecutive slashes. For example, 

CO MMO N/RA , Y//B , C , D 

indicates that B, C, and D are placed in blank common. The slashes may be omitted when blank 
common is the first block of the statement, as in: 

COMMON B,C,D 

Storage allocation for blocks of the same name begins at the same location for all programs executed 
together. For example, if a program contains 

COMMON A,B/R/X,Y,Z 

as its first COMMON statement, and a subprogram has 

COMMONAAJ,V,W//b,E,F 

as its first COMMON statement, the quantities represented by X and U ore stored in the same location. 
A similar correspondence holds for A and D in blank common. 

Common blocks may be of any length. No program must, however, attempt to enlarge a common block 
declared by a previously linked* program. Array names appearing in COMMON statements may have 
dimension information appended if the arrays have not been declared via a DIMENSION statement or 
a type declaration. For example, 

COMMON ALPHA,T(15, 10,5), GAMMA 

specifies the dimensions of the array T while entering T in blank common. Each array name appearing 
in a COMMON statement must be dimensioned somewhere in the program containing the COMMON 
statement . 

6.1.3 The EQUIVALENCE Statement 



Form 


EQUIVALENCE (V, ,y^, . . .),(V^,V^^, ,...),... 


Where 


V's are variable names 


Effect 


The set of parenthesized variables 
identify the same storage location. 



*Programs are linked via the LINK-11 program as described In the LINK-11 manual. 
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For example, 

EQUIVALENCE(RED,BLUE) 
specifies that the values of the variables RED and BLUE are stored in the same location. 

The relation of equivalence is transitive; thus, the two statements 

EQUIVALENCE(A,B),(B,C) 
EQUIVALENCE(A,B,C) 

have the same effect. 

The subscripts of array variables in an EQUIVALENCE statement must be integer constants. 
Example: 

EQUIVALENCE(X,A(3),Y(2,1,4)),(BETA(2,2),ALPHA) 

6.1 .4 EQUIVALENCE AND COMMON 

Variables may appear in both COMMON and EQUIVALENCE statements, but no two quantities in 
COMMON may be set equivalent to one another. 

Quantities placed in a common block by means of EQUIVALENCE statements may cause the end of the 
common block to be extended. For example, the statements 

common/rA,y,z 
dimension a(4) 
equivalence(a,y) 

causes the common block R to extend from X to A(4), arranged as follows: 

X 

Y A(l) 

Z A(2) 

A(3) 

A(4) 

EQUIVALENCE statements which would require extension of the start of a common block are not 
allowed. For example, the sequence 

COMMON/RA,Y,Z 
DIMENSION A(4) 
EQUIVALENCE(X,A(3)) 

is not permitted, since it would require A(l) and A(2) to extend the starting location of block R. 
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6.2 THE DATA STATEMENT 



Form 


DATA (var listj/values list^Avar Iist2)/values lisl-2/, ... 


Where 


(var list) contains a string of variables separated by 

commas 

/values list/ contains a string of data items separated by 

commas 


Effect 


A value from values list is assigned to the corresponding 
variable in var list. 



The DATA statement is used to supply initial or constant values for variables. The specified values 
are compiled into the object program, and become the values assumed by the variables when program 
execution begins. Such values may also be provided via a BLOCK DATA subprogram (see Chapter 7). 
Variables in a labeled common block can only be specified in a BLOCK DATA subprogram. Variables 
in blank common may not be initialized. 

Variables in the variable list may be either single subscripted or unsubscripted arrays, or the name of 
an entire array . 

When an entire array is given, data values must be specified for each and every element of the array. 
Data elements are stored in the array in the same order used for the data transmission and storage 
arrays, i.e., in order of increasing subscripts with the first subscript varying most rapidly. 

Allocation to memory locations in the array stops when: 

a. the data item list is exhausted; or 

b. data items have been allocated to the entire array. If so, 
additional data items will be allocated to additional items 
in the varaible list. 

When Hollerith or literal constants are encountered in the values list, they are assigned to the assoc- 
iated variables in the same manner that such constants are handled in assignment statements. Specifi- 
cally, let the site of the variable in bytes be v, and the size of the literal by I. 

a. if v< 1, the first (leftmost) v digits of the literal will be stored in the 
variable; the remaining digits will be ignored. 

b. if 1< V, the Hollerith literal will occupy the I low order bytes of the 
variable. The remaining bytes will be undefined. Note, however, 
that since Hollerith literals are always blank-filled to word boundaries, 
the first byte following any Hollerith constant with an odd number of 
bytes will be a blank. 



Example: 



DATA X,Y,Z/'A','BCDE','FGHIJKL7 
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produces in memory: 



X+1 



X 



Blank 


A 


X+3 


X+2 


undefined 


undefined 


Y+1 


Y 


C 


B 


Y+3 


Y+2 


E 


D 


Z+1 


Z 


G 


F 


Z+3 


Z+2 


I 


H 



The data items following each list of variables must have a one-to-one correspondence with the variables 
of the list, and must agree in type, since each item of the data specifies the value given to its corres- 
sponding variable. 

Data items assigned may be numeric, Hollerith, octal, hexadecimal, or logical constants. For example, 

DATA ALPHA, BETA/5, 1 6. E -2/ 

specifies the value 5 for ALPHA and the value . 16 for BETA. Any item of data may be preceded by an 
integer constant followed by an asterisk. This notation indicates that the item is to be repeated. For 
example, 

DATA(A(l),A(2),A(3))/3*0./ 
specifies the value zero for array elements A(l) - A(3). 

As another example: 

DIMENSION A(2,2),B(3) 

DATA A,B/2*1 .0,3*2.0,3.0,4./ 



will initialize 



A(1,l), and A(2,l)to 1 
A(l,2),A(2,2)and B(l) to 2 
B(2) to 3, and B(3) to 4. 
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6.3 TYPE DECLARATION STATEMENTS 



Form 


typeV^,V2 V3,... 


Where* 


type may be: INTEGER (INTEGER*2), 
REAL (REALM), DOUBLE PRECISION 
(REAL*8), COMPLEX, LOGICAL, BYTE 
(LOGICAL*!) 




V,, V»,V_ are variables 


Effect 


All variables in the list are assigned 
the given type. 



A variable may appear in only on© type statement. Type statements may be used to give dimension 
specifications for arrays. Adjustable arrays in subprograms may also be defined via type statements. 

6.4 THE IMPLICIT STATEMENT 



Form 


IMPLICIT type (a, ,02,...) 


Where 


type is INTEGER, REAL, LOGICAL, COMPLEX 
or DOUBLE PRECISION 

a,,a , . . .represent single alphabetic characters, 
each separated by commas, or a range of charac- 
ters (in alphabetic sequence) denoted by the first 
and last characters of the range separated by a 
minus sign (e.g., (A-D)) 


Effect 


Any program variable which is not mentioned in 
a type statement, and whose first character is one 
of those listed in the IMPLICIT statement, is classi- 
fied according to the type appearing before the 
list in which the character appears. 



As an example, the statement 

IMPLICIT REAL(A-D,L,N-P) 

causes all variables starting with the letters A through D, 1, and N through P to be typed as real, 
unless they are explicitly declared otherwise. 



*Parenthesized items are synonyms. 
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The initial state of the compiler is set as if the statements 

IMPLICIT REAL(A-H,0-Z) 
IMPLICIT INTEGER(I-N) 

were at the beginning of the program. This state is in effect unless an IMPLICIT statement changes 
the above interpretation, i.e., identifiers, whose types are not explicitly declared, are typed as 
follows. 

■ Identifiers beginning with I, J, K, L, M, or N are assigned integer type. 

■ Identifiers not assigned integer type are assigned real type. 
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CHAPTER 7 
SUBPROGRAM STATEMENTS 



There are fwo categories of subprograms in FORTRAN - functions and subroutines. Both consist of one 
or more FORTRAN statements which may be invoiced by name and, as appropriate, with values upon 
which they are to operate. A function differs from a subroutine in that it always returns a single 
numeric value; by convention, the function reference represents this value in an expression. A sub- 
routine, on the other hand, may return several or no values. 

The transmission of arguments between a subprogram reference and the subprogram itself is accomplished 
by the use of dummy variables within the subprogram definition. Those variables in the subprogram 
which are dummy variables are listed in the subprogram definition statement. References to the sub- 
program may then supply values for these arguments in the same order and be substituted for them when- 
ever they appear in the subprogram. 

7.1 FUNCTION DEFINITIONS 

Functions may be internal or external . An internal function is defined via a form of the Arithmetic 
statement and may be referenced only by the program in which it is defined. An external function, 
which may be referenced by other programs, is defined via the FUNCTION statement. All functions 
must have at least one argument. 

A function name must be a legal symbol. A function reference may only appear within an expression 
and must, like other elements of expressions, have d specified type. Type may be specified in the 
definition itself or via any other FORTRAN type-specification facility. 



7.1.1 The Arithmetic Statement Function Definition 



Form 


t name (argl , . . .) = expression 


Where 


t is an optional type specification 
name is the function name 
argl, . . . are dummy variables 
expression is the function definition 


Effect 


Defines an internal function. 
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An ArithmeHc stafement function definition is a single statement. The expression which defines the 
function may include dummy arguments, ordinary variables, external functions and previously defined 
internal functions. 

In the following definition: 

ACOSH(X) = (EXP(X/A) + EXP(-X/A))/2. 

X is a dummy argument and A an ordinary variable. When the function is referenced, the current value 
of A and the supplied value of X will be used to evaluate it. All function definitions of this type must 
precede the first executable statement of the program in which they appear, and follow the last speci- 
fication statement appearing in the program. 



7. 1 .2 The FUNCTION Statement 



Form 



Where 



Effect 



t FUNCTION name (argi, ...) 



t is an optional type specification 
name is the function name 
argl , . . . are dummy arguments 



Defines an external function. 



The function name must be a legal symbol and must be assigned a value within the definition. This 
value is the function's value. Arguments must agree in number, order, and type with actual arguments 
given by the calling program. 

Dummy arguments may represent the following elements in the function definition: expressions, alpha- 
numeric strings, array names or elements and subprogram names. Dummy arguments which represent 
array names must appear within the subprogram either in a DIMENSION statement, or in one of the 
type statements that provide dimension information. Dimensions given as constants must not exceed 
the dimensions of the corresponding arrays in the calling program. Dimensions given as dummy variables 
may be used to specify adjustable dimensions for array name arguments. For example, in the statement 
sequence: 

FUNCTION TABLE (A,M,N,B,X,Y) 

DIMENSION A(M,N), B(10), C(50) 

the dimensions of array A are specified by the dummy arguments M and N, while the dimension of array 
B is given as a constant. The various values given for M and N by the calling program must be within 
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the limits of the actual arrays which the dummy array A represents. Various arrays may be substituted 
for A. These arrays may each be of different size. Dummy dimensions may only be given for dummy 
arrays. Note in the example above that the array C, which is not a dummy argument, must be given 
absolute dimensions. A dummy argument may not appear in an EQUIVALENCE statement in the 
FUNCTION subprogram. 

A function must not modify any arguments which appear in the FORTRAN arithmetic expression calling 
the function. The only FORTRAN statements not allowed in a FUNCTION subprogram are SUBROUTINE, 
BLOCK DATA, and another FUNCTION statement. 

7.2 SUBROUTINE SUBPROGRAMS 

A SUBROUTINE subprogram is defined external to the program which references it. Subroutine de- 
finition is initiated by a SUBROUTINE statement. A subroutine is referenced by a CALL statement 
and returns control to the calling program by means of one or more RETURN statements. 

7.2.1 The SUBROUTINE Statement 



Form 


SUBROUTINE name 
SUBROUTINE name (argl, ...) 


Where 


name and org are as for functions 


Effect 


The program which follows is declared 
a SUBROUTINE subprogram. 



The arguments in the parenthesized list are dummy arguments representing the arguments of the sub- 
program. The dummy arguments must agree in number, order, and type with the actual arguments 
used by the calling program. A SUBROUTINE subprogram need not have any arguments at all . When 
supplied, they may be expressions, alphanumeric strings, array names, array elements, scalar vari- 
ables, and subprogram names. 

Dummy variables which represent array names must be dimensioned within the subprogram by a 
DIMENSION or type declaration statement. As in the case of a FUNCTION subprogram, either con- 
stants or dummy identifiers may be used to specify dimensions in a DIMENSION statement. The dummy 
arguments must appear in an EQUIVALENCE or COMMON statement in the SUBROUTINE program. 

A SUBROUTINE subprogram may use one or more of its dummy arguments to represent results. For 
example, 

SUBROUTINE COMPUTE (A,B,ANS) 
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requires the user to supply numeric values for A and B to be computed, and a variable for ANS in 
which to store the results. The only FORTRAN statements not allowed in a SUBROUTINE subprogram 
are FUNCTION, BLOCK DATA, and another SUBROUTINE statement. 

7.2.2 The CALL Statement 



Form 


CALL name 

CALL name (argl, . ..) 


Where 


name identifies a subprogram 
argl, ... are actual arguments 


Effect 


Control is transferred to the SUBROUTINE 
subprogram . 



The arguments of a CALL statement may be expressions, array names, array elements, scalar variables, 
alphanumeric strings or subprogram names; arguments may be of any type, but must agree in number, 
order, type, and array size (except for adjustable arrays, as discussed under the DIMENSION statement) 
with the corresponding arguments in the SUBROUTINE statement of the called subroutine. Unlike a 
function, a subroutine may produce more than one value and cannot be referred to as a basic element 
in an expression. 

7.2.3 The RETURN Statement 

The RETURN statement consists of the text: 

RETURN 

This statement returns control from a subprogram to the calling program. Normally, the last statement 
executed in a subprogram is a RETURN statement. Any number of RETURN statements may appear in a 
subprogram. 

7.3 THE BLOCK DATA STATEMENT 

The BLOCK DATA statement is used to establish a BLOCK DATA subprogram, a data specification sub- 
program which is used to enter initial values for variables in labeled common blocks. No executable 
statements may appear in a BLOCK DATA subprogram. A BLOCK DATA subprogram is established by 
a BLOCK DATA statement consisting of the text: 

BLOCK DATA 

This statement declares the program which follows to be a data specification subprogram and it must be 
the first statement of the subprogram. 
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The subprogram contains only type-sfatements, EQUIVALENCE, DATA, DIMENSION, and COMMON 
statements. A complete set of specifications must be given for an entire COMMON block. A single 
BLOCK DATA subprogram may initialize any number of named COMMON blocks. 

7.4 THE EXTERNAL STATEMENT 



Form 


EXTERNAL identifier, identifier, ... identifier 


Where 


Identifier is the name of a subprogram 


Effect 


The identifier is declared a subprogram name 
and may be used as the argument of other sub- 
programs 



FUNCTION and SUBROUTINE subprogram names may be used as the actual arguments of subprograms. 
When they are, their names must be distinguished from ordinary variables by their appearance in an 
EXTERNAL statement. 

Any subprogram name given as an argument to another subprogram must have previously appeared in 
an external declaration in the calling program (i.e., as an identifier in an EXTERNAL). 



Example: 



EXTERNAL SIN, COS 



CALL TRIGF(SIN,1 .5,ANSWER) 



CALL TRIGF(COS, 187, ANSWER) 



END 

SUBROUTINE TRIGF(FUNC, ARC, ANSWER) 



ANSWER = FUNC(ARG) 



RETURN 
END 
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CHAPTER 1 
GENERAL PROCEDURES 



There are two steps involved in obtaining an executable computer program from a FORTRAN source 
program. The first step, preparing an object module, requires use of the FORTRAN compiler and PAL 
assembler to obtain both compilation and assembly. The second step, preparing a load module, re- 
quires the use of the LINK-1 1 program to obtain those portions of the FORTRAN Object Time System 
required to run the user program. 

1 . 1 PREPARING AN OBJECT MODULE 

The FORTRAN compiler produces code which must be assembled by the PAL assembler. 

To request compilation, the user first types: 

.RUN FORTRN 
When the compiler is ready to accept input, the character # is printed. On the same line, the user 
issues a command string* of the form: 

device: obj-file, device: list file <device: source file 
where device specifies the location of the file using one of the mnemonics given in Table 3-1 of 
Chapter 3. 

Either or both output file specifications may be omitted. However, if an output file is specified with- 
out an extension, the compiler creates one as follows: 

Object file - PAL 
Source list file - LST 

If no extension is specified for the input file name, the compiler looks for, and expects the extension 
FTN. 



*The command string adheres to the requirements of the Disk Operating System (DOS) Command String 
Interpreter (CSI). 
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As an example, the command string: 

BESSEL, OUTPUT <BESSEL 

will cause the compiler to compile the program BESSEL. FTN. The source program listing will be 
written on a file called OUTPUT. LST, and the compiler will create an object file called BESSEL. PAL. 

If a syntactical error is detected in the command string, the compiler will output the command up to 
and including the error, advance the carriage and print the character ^ . The user must retype the 
entire string. Compilation may be aborted and the compiler restarted by typing CTRL/C and the 
Monitor command REstart. 

1 .2 PREPARING A LOAD MODULE 

A user program produced by the FORTRAN compiler is executed in conjunction with the FORTRAN 
Object Time System (OTS), a library of programs which support a variety of source-language facili- 
ties. The OTS is divided into four parts - input-output processing routines, mathematical subroutines 
and function generators, miscellaneous service routines, and input-output device tables and buffers 
and run switches. 

The input-output portion of the OTS includes routines to build input and output records and to manipu- 
late files via the system monitor. This section also includes a format processor, which associates items 
in a FORTRAN FORMAT statement with items in an I/O list and I/O record and performs required 
conversions, and a set of monitor interface routines which act as device drivers. 

The mathematical subroutines perform arithmetic operations not supported by the PDP-11 hardware, 
such as floating point and double-precision arithmetic. The function generator routines include the 
standard mathematical functions supported by FORTRAN such as SIN and ATAN. (See Appendix C for 
a list of standard functions.) 

Miscellaneous service routines perform a variety of functions such as array-index arithmetic and error 
processing. 

The final portion of OTS maintains information required for input-output operations (link blocks, file 
blocks, device status switches and buffers). It also contains any global values or switches required 
for program execution. 



Holding down the CTRL key and typing C. 
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A load module consists of the user's object module and those programs in OTS required for its execution. 
A load module is prepared using the LINK-11 program. Information on linking obfect modules and 
performing library searches may be obtained in the LINK-11 manual. 

1.3 ERROR PROCESSING 

The Object Time System detects run-time errors and prints error messages on the assigned message 
logging device. Errors ore divided into classes on the basis of functional similarity such as FUNCTION 
errors, recoverable I/O errors, and so on. Each class of error will have a maximum allowed occurrence 
level before which it will not terminate execution . This number may be reset by the user via the sub- 
routine SETERR (Appendix C). Error messages are given in Appendix F. 
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CHAPTER 2 
SUBPROGRAMS 



All subprograms which are expliciHy invoked by the user (as described in Part I, Chapter 7) are called 
via the convention described in Section 2.1 below. Those Object Time System Subprograms which are 
automatically invoked by FORTRAN statements to perform operations not supported by the PDP-ll 
hardware are called using the convention described in Section 2.2. 

2.1 STANDARD SUBROUTINE CALLS 

All user-defined or system subprograms which are invoked by a call or a function reference in the 
source program obey the calling conventions described below. 

Argument addresses are placed in a list following the subprogram call . The standard sequence will be: 
.GLOBL SUBR 



JSR R5,SUBR 

BR XX 

Argl 
Arg2 



ARGn 
XX: 

Note that the even byte of the branch instruction following the JSR contains the number of arguments* 
and is pointed to by R5 when SUBR is entered. 

Functions store the result in registers R0-R3 depending on the function type and return control via RTS 
R5. Thus, an integer function result is returned in RO and a real function result in RO and Rl; double- 
precision and complex in RO, Rl, R2 and R3. 



*See PAL-11R Assembler Manual (especially Section 7.12) for more information on the machine 
format of the Branch instruction. 
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2.2 THREADED CODE 

Most FORTRAN st-atement-s generate calls to internal subprograms. These calls are based on the simple 
Polish method for evaluating expressions. This method assumes that a typical expression consists of a 
large number of very simple operations done in a linear sequence. These operations use the stack for 
evaluating all expressions. 

For example, the FORTRAN program 

A = 1. 
B = l. 

would generate the following code for each expression: 

;A=1. 
$P0001 

.GLOBL $POP3 
$POP3,A 

;B = 1. 

$P0001 
$POP3,B 

Most routines referred to by the calls generated above are found at the end of the assembly listing. 
Other routines are linked in from the FORTRAN library. 



The routine $P0001 would be 



$P0001: MOV #$R0000+4,R0 

BR $F0001 

$R0000: 040200 
000000 

$F0001: MOV - (RO),-(SP) 
MOV-(R0),-(SP) 
JMP@ (R4) + 



;GET VALUE 

;FLOATING POINT CONSTANT 1 

PUSH 2 WORD VALUE ONTO 

STACK 

GO TO NEXT ROUTINE 



The routine $POP3 is in the library. $POP3 pops a value off the stack into the memory location 
whose address follows the call to $POP3 in the threaded code. $POP3, A pops the value on top of 
the stack into 2 memory words reserved for A. Similarly, $POP3, B saves the two word value found 
on top of the stack, in B. 

The expression C =A+B would result in 

$P0002 
$P0003 

.GLOBL $ADR 
$ADR 
$POP3,C 
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where $P0002 and $P0003 would push the values of A and B onto the stack, $ADR would add the two 
1 values on top of the stack, and $POP3 would save the result as variable C. 



rea 



In order to call one of these internal subprograms from an assembly language program, an entry to this 
Polish mode of execution must be made via JSR R4, $POLSH, which invokes the routine: 

$POLSH: TST (SP) + ;DELETE USELESS OLD 

;VALUE OF R4 
JMP @ (R4)+ ;PUSHED ON ENTRY 
;BY JSR 

The next word following the call to $POLSH will be the first word of Polish code to be executed. 

Internal subprograms are listed in Appendix E. 

To exit from Polish mode, simply direct the last Polish routine entered to jump to the next location 
in sequence. This is accomplished by placing the address of that word following the last Polish call . 

Example: 

$POP3,A ;POP3 WILL JUMP TO @ (R4), 

.+2 ;WHICHISNEXT. 

NEXT: 

Note that this mode of execution is exited for execution of subroutine and function calls via the 
standard PDP-11 calling convention. 

In the last example above, if C = A+B were followed by a CALL SUB (ARC), then the code following 
$P0003,C would be 

.+2 

JSR R5,SUB 

BR .+6 

ARC 

etc. 
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CHAPTER 3 
FORTRAN INPUT-OUTPUT 



Input-output functions of a FORTRAN -compiled user program are performed by the Object Time System. 
All input-output is accomplished through the Monitor and is device-independent. The user may, there- 
fore, do logical assignments at run-time using Monitor ASSIGN commands or by calling the SETFIL sub- 
routine (Appendix C). 

3.1 FILE STRUCTURES 

OTS input-output facilities are provided by one of three packages of OTS routines - formatted, un- 
formatted, and random access. The formatted input-output routines will read or write formatted ASCII 
records whose maximum length is 133 characters. On input, longer records will simply be truncated. 
For shorter records, the last character (line feed, form feed, or vertical tab) will be deleted and the 
record will be padded with blanks. The next-to-last character is also deleted if it is a carriage return. 
For output, if the device is a line printer or teleprinter, a carriage return and vertical tab are appended 
to the end of each record. The first character of each record is interpreted as a line spacing command. 
If the device is not a printer, a carriage return and line feed are appended. 

Unformatted input-output routines read or write formatted binary records of any size with parity check- 
ing. Records will be transmitted in segments up to 63 words long. The first word of each segment is 
a control word with one of the following meanings. 

Value Meaning 

Not first or last segment 

1 First segment 

2 Last segment 

3 First and last segment 

The random access routines read or write binary records. The maximum allowable record length is 
32767 bytes. These routines determine the block number and the displacement to the proper record 
from the user program's DEFINE FILE statement and the record number given in the input-output request. 
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3.2 DEVICE ASSIGNMENT 

If fhe user does not supply run-time assignment information, FORTRAN logical device number 6 is 
assigned to the teleprinter and all others are assigned to disk and given the name FOR0nn.DAT 
(where nn is the device number). Device number 6 is also assumed to be the message logging device 
and must be available for formatted ASCII output when required. Table 3-1 gives the available devices. 



Table 3-1 
PDP-11 FORTRAN IV Standard Peripheral Devices 



Name 


Mnemonic 


Input/Output 


Operation 


Formatted 


Unformatted 


Disk 


DC 








(includes disk packs and drums) 


DF 
DK 


Yes 


Yes 


read/Write 


DECtapes 


DT 


Yes 


Yes 


readAvrite 


Line Printer 


LP 


Yes 


No 


WRITE 


Magtape 


MT 


Yes 


Yes 


readA^rite 


Paper Tape Punch (High-speed) 


PP 


Yes 


Yes 


WRITE 


Paper Tape Reader (High-speed) 


PR 


Yes 


Yes 


READ 


Low-Speed Punch and Reader 


PT 


Yes 


Yes 


readA/Rite 


Teletype - User 


KB 


Yes 


No 


READ/WRITE 



Logical device assignment is governed by the Device Table which contains entries for eight devices 
but may be expanded to handle more. Each entry, as shown in Table 3-2 below, is 16 words long and 
preceded by an 11 -word header. 



HEADER 



Word 1 




Word 2 




Words 




Words 4- 


-11 


Word 1 




Word 2 





Word 3 



Table 3-2 
Device Table Entry 



Address of entry for error routine message file 

Number of entries in device vector table 

Device number of message logging file 

Addresses of device table entries for each of the 
devices one through eight 

Link Pointer (from Link Block, after INIT) 

Physical Device Name (RADSOAXX/; XXX =DF 
(is KB for Log Dev) 

Unit Num (Default 0) /How Open (File Block - 2) 
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Table 3-2 (Cont) 
Device Table Entry 



ENTRY 


Words 4 & 5 


File Name (RAD50/FOR/, /NNN/; NNN = Entry Num) 




Word 6 


File Extension (RAD50 /DAT/) 




Word 7 


Switches* and Protect Code (Default = 233) 




Words 


Status/Mode (from Line Buff Header) 




Word 9 


Count of I/O Operations for this Device 




Words 10-14 


Unused for formatted and unformatted l/O 




Word 15 


User ID code (UIC) - default = 




Word 16 


Addr of Error Value VAR (from CALL SETFIL) 


For Random I/O Words 8=14 


are: 




Word 8 


Function Word 




Word? 


Block Number 




Word 10 


Buffer Addr 




Word 11 


Buffer Length 




Word 12 


Associated VAR addr (from DEFINE FILE) 




Word 13 


Max Num of Records (from DEFINE FILE) 




Word 14 


Record Length (from DEFINE FILE) 


*Switches 


are as follows: 






Bit 


Setting Meaning 




0-1 


Closed 

1 Open formatted 

2 Open unformatted 

3 Open random 



By changing the number in word 2, the user may modify the number of entries to be considered. If 
fewer are desired, he may change one of the eight device words to zero. If more are desired, he may 
expand this 8-word sequence. 

3.3 INPUT-OUTPUT BUFFERS 

Both input and output use a single buffer. A wait will be issued after each READ or WRITE request; 
that is, I/O will be synchronous. The buffer Is preceded by a link block, file block, and buffer 
header. 
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APPENDIX A 
STATEMENT SUMMARY 



Statement 


Form 


Effect 


See 
Section 


Arithmetic 


a=b 


the value of expression b is 
assigned to the variable a 


3.2 


Arithmetic 

function 

definition 


f(a, ...) =x 


the value of expression x is 
assigned to f(a, . . .) after 
parameter substitution 


7.1 


ASSIGN 


ASSIGN n TO V 


statement number n is assigned 
as the value of integer variable 
V for use in an assigned GO TO 
statement 


3.2 


BACKSPACE 


BACKSPACE u 


peripheral device u is back- 
spaced one record 


5.3 


BLOCK DATA 
CALL 


BLOCK DATA 

CALL prog 

CALL prog (a, . ..) 


identifies a block data sub- 
program 

invokes subroutine named prog, 
supplying arguments when re- 
quired 


7.3 
7.2.2 


COMMON 


COMMONAlockl/a,b,c,/. . . 


variables (A,B,C) are assigned 
to a common block 


6.1.2 

and 
6.1.4 


CONTINUE 


CONTINUE 


no processing, target for transfers 


4.4 


DATA 


DATA var list^/val list,/. . . 


assigns initial or constant values 
to variables 


6.2 


DEFINE FILE 


DEFINE FILEa,(m^,l,,U,vp... 


describes a disk file for sequential 
I/O 


5.1.2 


DIMENSION 


DIMENSION array (v,,V2,Vg). . . 


storage allocated according to 
dimensions specified for the array 


6.1.1 


DO 


DO n i = mwm2,m_ 


statements following the DO up 
to statement n are iterated for 
values of Integer variable i, 
starting at i = m], incrementing 
by m3, terminating when i >m2 


4.3 
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Stat-ement 



END FILE 
EXTERNAL 
FIND 
FORMAT 

FUNCTION 

GOTO 



IMPLICIT 



PAUSE 
READ 



RETURN 
REWIND 
STOP 



Form 



END FILE u 



EXTERNAL subprog,, 



Effect 



FIND(a'b) 



n FORMAT (field descrlpHon, .../...) 



t FUNCTION f(ap..) 



(1) GO TO n 

(2) GO TO(n,,...n|^),i 
GO TO(n,,...n|^)i 

(3) GO TO var 

GO TO var(n,,. ••n, ) 
GO TO var,(n,,. ..n|^) 

IMPLICIT type^(a,...)... 



PAUSE 
PAUSE number 

READ(u,f) lisf 

READ(u,f) 

READ(u) list 

READ(a'r) list 

READ(u,f,END=n) list 

READ(u,f,ERR=n) list 

READ(u,f,END=n,ERR=n) list 

RETURN 

REWIND u 

STOP 

STOP number 



invokes the monitor CLOSE 
facility for device u 

declares a subprogram for use by 
other subprograms 

disk read/write mechanism po- 
sitioned to record b of file a 

specifies conversions between 
internal and external representation 
of data 

indicates an external function 
definition (t is an optional type 
specification) 

transfers control to: 

(1) statement n 

(2) to statement n , 
ifi = l, 

to statement n, 
ifi=k " 

(3) transfers control to statement 
number assigned to var option- 
ally checking that var is 
assigned one of the labels 

"1 



See 
Section 



, .n, 



the given type is assigned to any 
variable (not mentioned in an 
explicit type specification) which 
begins with one of the letters 
given as an argument 

program execution interrupted and 
number printed, if given 

reads a record from a peripheral 
device according to specifications 
given in the arguments of the 
statement 



returns control from a subprogram 
to the calling program 

repositions designated unit to 
the beginning of the file 

terminates program execution 
and prints number specified 



5.3 
7.4 
5.3 
5.1.1 

7.1.2 



1.1 
1.2 



4.1.3 



6.4 



6.5 



5.2.4 



7.2.3 

5.3 

4.6 



A-2 



Sfafement 



SUBROUTINE 



WRITE 



Form 



SUBROUTINE prog(a^,...) 



WRITE (u,f) 
WRITE(u,f) lisl- 
WRITE (u) list 
WRITE(a'r) list 
WRITE(u,f,END=n) list 
WRITE(u,f,ERR=n) list 
WRITE(u,f,END=n,ERR=n) list 



Effect 



See 
Section 



declares prog to be a subroutine 7.2.1 

subprogram and a^ . . ., if supplied, 
as dummy arguments 

writes a record to a peripheral 5.2.3 

device according to specifi- 
cations given in the arguments 
of the statement 
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APPENDIX B 
ASCII CHARACTER SET 



EVEN 


7-BIT 




PARITY 


OCTAL 




BIT 


CODE 


CHARACTER 





000 


NUL 


1 


001 


SOH 


1 


002 


STX 





003 


ETX 


1 


004 


EOT 





005 


ENQ 





006 


ACK 


1 


007 


BEL 


1 


010 


BS 





on 


HT 





012 


LF 


1 


013 


VT 





014 


FF 


1 


015 


CR 


1 


016 


SO 





017 


SI 


1 


020 


DLE 





021 


DCl 



REMARKS 

NULL, TAPE FEED, CONTROL SHIFT P. 

START OF HEADING; ALSO SOM, START OF MESSAGE, 

CONTROL A. 

START OF TEXT; ALSO EOA, END OF ADDRESS, CONTROL B. 

END OF TEXT; ALSO EOM, END OF MESSAGE, CONTROL C. 

END OF TRANSMISSION (END); SHUTS OFF TWX MACHINES, 
CONTROL D. 

ENQUIRY (ENQRY); ALSO WRU, CONTROL E. 
ACKNOWLEDGE; ALSO RU, CONTROL F. 
RINGS THE BELL. CONTROL G. 
BACKSPACE; ALSO FEO, FORMAT EFFECTOR. BACK- 
SPACES SOME MACHINES, CONTROL H. 
HORIZONTAL TAB. CONTROL I. 

LINE FEED OR LINE SPACE (NEW LINE); ADVANCES PAPER 
TO NEXT LINE, DUPLICATED BY CONTROL J. 
VERTICAL TAB (VTAB). CONTROL K. 

FORM FEED TO TOP OF NEXT PAGE (PAGE). CONTROL L. 
CARRIAGE RETURN TO BEGINNING OF LINE. DUPLICATED 
BY CONTROL M. 
SHIFT OUT; CHANGES RIBBON COLOR TO RED. CONTROL N. 

SHIFT IN; CHANGES RIBBON COLOR TO BLACK. CON- 
TROL O. 

DATA LINK ESCAPE. CONTROL P (DCO). 
DEVICE CONTROL 1, TURNS TRANSMITTER (READER) ON, 
CONTROL Q (XON). 

022 DC2 DEVICE CONTROL 2, TURNS PUNCH OR AUXILIARY ON. 

CONTROL R (TAPE, AUX ON). 

023 DC3 DEVICE CONTROL 3, TURNS TRANSMITTER (READER) OFF, 

CONTROL S (X OFF). 

024 DC4 DEVICE CONTROL 4, TURNS PUNCH OR AUXILIARY OFF. 

CONTROL T (TAPE-,AUX OFF). 

025 NAK NEGATIVE ACKNOWLEDGE; ALSO ERR, ERROR. CONTROL U. 
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EVEN 


7-BIT 




PARITY 


OCTAL 




BIT 


CODE 


CHARACTER 


1 


026 


SYN 





027 


ETB 





030 


CAN 


1 


031 


EM 


1 


032 


SUB 





033 


ESC 


1 


034 


FS 





035 


GS 





036 


RS 


1 


037 


US 


1 


040 


SP 





041 


! 





042 


II 


1 


043 


it 





044 


$ 


1 


045 


% 


1 


046 


& 





047 


' 





050 


( 


1 


051 


) 


1 


052 


* 





053 


+ 


1 


054 


/ 





055 







056 


, 


1 


057 


/ 





060 





1 


061 


1 


1 


062 


2 





063 


3 


1 


064 


4 





065 


5 





066 


6 


1 


067 


7 


1 


070 


8 





071 


9 





072 


: 


1 


073 


r 





074 


< 


1 


075 


= 


1 


076 


> 





077 


? 


1 


100 


@ 





101 


A 





102 


B 


1 


103 


C 





104 


D 


1 


105 


E 


1 


106 


F 



REMARKS 

SYNCHRONOUS IDLE (SYNC). CONTROL V. 

END OF TRANSMISSION BLOCK; ALSO LEM, LOGICAL 

END OF MEDIUM. CONTROL W. 

CANCEL (CANCL). CONTROL X. 

END OF MEDIUM. CONTROL Y. 

SUBSTITUTE. CONTROL Z. 

ESCAPE. PREFIX. CONTROL SHIFT K. 

FILE SEPARATOR. CONTROL SHIFT L. 

GROUP SEPARATOR. CONTROL SHIFT M. 

RECORD SEPARATOR. CONTROL SHIFT N. 

UNIT SEPARATOR. CONTROL SHIFT O. 

SPACE. 



ACCENT ACUTE OR APOSTROPHE. 
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EVEN 


7-BIT 




PARITY 


OCTAL 




BIT 


CODE 


CHARACTER 





107 


G 





no 


H 


1 


in 


I 


1 


112 


J 





113 


K 


1 


114 


L 





115 


M 





116 


N 


1 


117 


O 





120 


P 


1 


121 


Q 


1 


122 


R 





123 


S 


1 


124 


T 





125 


U 





126 


V 


1 


127 


W 


1 


130 


X 





131 


Y 





132 


Z 


1 


133 


[ 





134 


\ 


1 


135 


] 


1 


136 


t 





137 


■♦- 





140 


\ 





175 


} 





176 


— 


1 


177 


DEL 



REMARKS 





141 


a 




142 


b 





143 


c 




144 


d 





145 


e 





146 


f 




147 


g 




150 


h 





151 


i 





152 


i 




153 


k 





154 


1 




155 


m 




156 


n 





157 





1 


160 


P 



SHIFT K. 
SHIFT L. 
SHIFT M. 



ACCENT GRAVE. 

THIS CODE GENERATED BY ALT MODE. 

THIS CODE GENERATED BY ESC KEY (IF PRESENT). 

DELETE, RUB OUT. 

LOWER CASE ALPHABET FOLLOWS (TELETYPE MODEL 37 
ONLY). 
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EVEN 


7-BIT 




PARITY 


OCTAL 




BIT 


CODE 
161 


CHARACTER 





q 





162 


r 


1 


163 


s 





164 


t 


1 


165 


u 


1 


166 


V 





167 


w 





170 


X 


1 


171 


y 


1 


172 


z 





173 


{ 


1 


174 


1 



REMARKS 
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C.1 FUNCTIONS 



n 
I 



Function 


Function 
Nome 


Definition 


Number of 
Arguments 


Type 


of 


Argument 


Function 


Absolute value: 
Real 
Integer 
Double-precision 

Complex to real 


ABS 

lABS 

DABS 

CABS 


largi 
|arg| 
|arg| 

c=(x +y ) 


1 
1 

1 

1 


Real 

Integer 

Double 

Complex 


Real 

Integer 

Double 

Real 


Conversion: 

Integer to real 
Real to integer 
Double to real 
Real to double 


FLOAT 
IFIX 
SNGL 
DBLE 


Result is largest integer <a 


1 

1 
1 
1 


Integer 
Real 
Double 
Real 


Real 
Integer 
Real 
Double 


Complex to real 


REAL 




1 


Complex 


Real 


(obtain real part) 












Complex to real 


AIAMG 




1 


Complex 


Real 


(obtain imaginary part) 












Real to complex 


CMPLX 


c=Arg^+i*Arg2 


2 


Real 


Complex 


Truncation: 
Real to real 
Real to integer 
Double to integer 


AINT 

INT 

IDINT 


Sign of org * 
/ largest integer > 

<|arg| 


1 
1 
1 


Real 
Real 
Double 


Real 

Integer 

Integer 



APPENDIX C 
FORTRAN-IV LIBRARY SUBPROGRAMS 



n 
I 



Function 



Remaindering: 
Real 
Integer 
Double-precision 

Maximum value: 



Minimum value: 



Transfer of sign: 
Real 
Integer 
Double-precision 

Positive difference: 
Real 
Integer 

Exponential: 
Real 
Double 
Complex 



Function 
Name 



AMOD 

MOD 

DMOD 

AMAXO 

AMAXl 

MAXO 

MAXl 

DMAX1 

AMINO 
AMINl 
MI NO 
MINI 
DMINl 

SIGN 

ISIGN 

DSIGN 

DIM 
IDIM 

EXP 

DEXP 

CEXP 



Definition 



The remainder 
when Arg 1 is 
divided by Arg 2 



Max(ArgpArg2,...) 



Min(Arg^,Arg2,...) 



> 



J 



Sgn(Arg2)*|Arg^| 



J Arg^-Min(Arg^,Arg2)| 



Arg 



Number of 
Arguments 




>2 



2 
2 
2 

2 
2 

1 
1 



Type of 



Argument Function 



Real 

Integer 

Double 

Integer 

Real 

Integer 

Real 

Double 

Integer 

Real 

Integer 

Real 

Double 

Real 

Integer 

Double 

Real 
Integer 

Reol 

Double 

Complex 



Real 

Integer 

Double 

Real 

Real 

Integer 

Integer 

Double 

Real 

Real 

Integer 

Integer 

Double 

Real 

Integer 

Double 

Real 
Integer 

Real 

Double 

Complex 



n 
I 

u 



Function 


Function 
Name 


Definition 


Number of 
Arguments 


Type of 


Argument Function 


Logarithm: 
Real 

Double 

Complex 


ALOG 

ALOGIO 

DLOG 

DLOG10 

CLOG 


logg (Arg) 

log 10 (Arg) 
logg (Arg) 
log 10 (Arg) 
log^ (Arg) 




Real 

Real 

Double 

Double 

Complex 


Real 

Real 

Double 

Double 

Complex 


Square root: 
Real 
Double 
Complex 


SQRT 

DSQRT 

CSQRT 


(Arg)J/^ 
c=(x+i y)'/2 




Real 

Double 

Complex 


Real 

Double 

Complex 


Sine: 

Real (radians) 
Double (radians) 
Complex 


SIN 

DSIN 

CSIN 


i sin (Arg) I 
V. J 




Real 

Double 

Complex 


Real 

Double 

Complex 


Cosine: 

Real (radians) 
Double (radians) 
Complex 


COS 

DCOS 

CCOS 


J cos (Arg) \ 




Real 

Double 

Complex 


Real 

Double 

Complex 


Hyperbolic: 
Tangent 


TANH 


tanh (Arg) 




Real 


Real 


Arc - sine 


ASIN 


asin (Arg) 




Real 


Real 


Arc tangent 
Real 
Double 


ATAN 
DATAN 


atan (Arg) 
atan (Arg) 




Real 
Real 
Double 


Real 
Real 
Double 


quotient of 
two arguments 


ATAN2 
DATAN2 


atan (Arg^/Arg2) 
atan (Arg^/Arg2) 


2 
2 


Real 
Double 


Real 
Double 


Complex conjugate 


CONJG 


Atg=X+i*Y, C=X-i*Y 




Complex 


Complex 


Random number 


RAN 


result is a random number between zero 
and one (uniform distribution) 




Integer, 
Real, 

Double, or 
Complex 


Real 



C.2 SUBROUTINES 



n 



SubrouHne Name 


Call Format (Optional Arguments are underlined) 


Effect 


DATE 


CALL DATE (array) 


Places today's date into the three-word array specified in the 
call . The date consists of left-justified ASCII characters in 
the form: 

mmddyy 

where mm is a 2-digit month, dd a 2-digit day, and yy is a 
2-digit year. 


PDUMP 


CALL PDUMP (L,,U,,F,,...,L ,U ,F ) 
III n n n 


Causes specified portions of core to be dumped. 

L] and U, are variables giving the limits of the dump (either 
may be upper or lower limits). 

F^ is an integer indicating the format in which the dump is to 
be performed: 

= octal , 1 = real , 2 = integer, and 3 = ASCII . 

If no limits are given, the entire job area is dumped. If one 
limit is given, core is dumped from that point to the end of 
the job area. If F is not given, octal is assumed. 

Control is returned to the calling program when the dump is 
completed. 


SETERR 


CALL SETERR (CLASS, MAX) 


Resets maximum occurrence count for specified class of errors. 
The argument CLASS is an integer indicating the error class 
affected. MAX is an integer with the following meanings: 

>0 = log until MAX 
= log and ignore 
-1 = no log and ignore 
-2 = no log and exit 
-3 = immediate abort 



n 
I 

Ol 



Subroutine Name 


Call Format (Optional Arguments are underlined) 


Effect 


SETFIL 


CALL SETFIL (n, FILE, ERR, DEV, Un, 
ID, PC, CS, RECL, NREC) 

NOTE: Optional arguments can only be 
provided in sequence as above; that is, 
any trailing set may be omitted, n and 
FILE are always required. 


Overrides default values for a FORTRAN device assignment. 
Arguments are as follows: 

n = logical device number 

FILE =file name and extension 

ERR = a variable into which both error returns 

from this routine and from l/O with the ERR 

option will be placed 

DEV =a device mnemonic (e.g., DT or LP) 

Un ~ unit number (e.g., 1 if device DTI ) 

ID = user ID code 

PC = protect code 

CS = 1 for non-random or 

2 for random 
RECL = record length for CS=1 
NREC = number of records for CS=1 



D.l INTEGER FORMAT 



APPENDIX D 
FORTRAN WORD FORMATS 




15 14 



In two-word format, an integer is assigned two words. Only the high-order word is significant. 



D.2 REAL FORMAT 



word 
n 



Sign 

+ 

1 - 


Binary excess 128 exponent 


high-order 
mantissa 



15 14 



76 



word 
n+2 



Low order-mantissa 



15 







This format is limited to normalized numbers. Since the high-order bit of the mantissa is always 1, it 
is discarded, giving an effective precision of 24 bits. 

D.3 DOUBLE-PRECISION FORMAT 



word 
n 



Sign 

+ 

1 - 


Binary excess 128 exponent 


high-order 
mantissa 



15 14 



76 
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word 
n+2 



15 



word 

n+4 



15 



Low order mantissa 



Lower order mantissa 



word 
n+6 



15 



Lowest order mantissa 



The effective precision is 56 bits. 



D.4 COMPLEX FORMAT 



word 
n 



word 

n+2 



Sign 

+ 

1 - 


Binar/ excess 128 exponent 


high-order 
mantissa 



15 14 



15 



word 
n+4 



word 
n+6 



15 14 



15 



D.5 BYTE FORMAT 



Id 



Low order mantissa 



Sign 

+ 

1 - 


Binary excess 128 exponent 


high-order 
mantissa 



76 



Low order mantissa 



Real 
Part 



Imaginary 
Part 



unspecified 


data item. 



15 



87 
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D.6 HOLLERITH FORMAT 



word 
1 



charl 


char2 



15 



87 



word 
n 



char n (n<255) 






15 



87 



D.7 LOGICAL FORMAT 



15 



True 


1 


7 


7 


7 


7 


7 




5 

















False 
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APPENDIX E 
INTERNAL SUBPROGRAMS 



Subprogram Name Function 

$IR FLOAT THE INTEGER ON THE TOP OF THE STACK. (65 words) 

$ID ENTRY INTO $IR WHICH FIRST MOVES THE ARGUMENT DOWN 

TWO WORDS (FILLING IN WITH ZEROS) BEFORE EXECUTING 
THE $IR CODE. 

$DR PUT THE HIGH ORDER WORDS OF THE DOUBLE PRECISION 

QUANTITY ON THE TOP OF THE STACK TRUNCATING TO REAL 
FORMAT. (Swords) 

$RD APPEND A DOUBLE WORD OF ZEROS TO THE REAL QUANTITY 

ON THE TOP OF THE STACK. (10 words) 

$RI TRUNCATE AND FIX THE REAL NUMBER OF THE TOP OF THE 

STACK. (40 words) 

$DI ENTRY INTO $RI WHICH MOVES THE ARGUMENT UP THE STACK 

TWO WORDS (DISCARDING THE LOW ORDER PART) BEFORE 
EXECUTING THE $RICODE, 

$ADR REPLACE THE TWO REAL NUMBERS ON THE TOP OF THE STACK 

WITH THEIR SUM. NO CODES WILL BE SET. (135 words) 

$SBR ENTRY IN $ADR WHICH NEGATES THE NUMBER ON TOP OF THE 

STACK BEFORE DOING THE ADD. 

$ADD REPLACE THE TWO DOUBLE PRECISION NUMBERS ON THE TOP 

OF THE STACK WITH THEIR SUM. NO CODES WILL BE SET. 
(210 words) 

$SBD ENTRY IN $ADD WHICH NEGATES THE NUMBER ON THE TOP OF 

THE STACK BEFORE DOING THE ADD. 

$CMR COMPARE CORRESPONDING WORDS OF THE TWO ITEMS ON THE 

STACK UNTIL A MISMATCH IS FOUND (IF ONE EXISTS). CLEAR 
THE STACK AND RETURN THE Z AND N CODES DEFINED IN 
130-309-001 SECTION 3.1 .2.2 . (25 words) 

$CMD THIS IS THE SAME AS $CMR EXCEPT THAT THE ITEMS ARE DOUBLE 

PRECISION. (30 words) 

(Continued on next page) 
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Subprogram Name FuncHon 

$ISR TEST AND FLUSH THE REAL NUMBER ON TOP OF THE STACK AND 

RETURN TO @(R4) IF IT IS NEGATIVE, @(R4+2) IF ZERO, AND 
@(R4+4) IF POSITIVE . (20 words) 

$ISD ENTRY IN $ISR FOR DOUBLE PRECISION. 

$MLI REPLACE THE TWO INTEGERS ON THE TOP OF THE STACK WITH 

THEIR PRODUCT. (50 words) 

$MLR REPLACE THE TWO REAL NUMBERS ON THE TOP OF THE STACK 

WITH THEIR PRODUCT. (100 words) 

$MLD REPLACE THE TWO DOUBLE PRECISION NUMBERS ON THE TOP OF 

THE STACK WITH THEIR PRODUCT. (170 words) 

$DVI REPLACE THE TWO INTEGERS ON THE TOP OF THE STACK WITH 

THE INTEGER PART OF THE QUOTIENT OF THE TOP STACK ITEM 
DIVIDED INTO THE SECOND ITEM. A ZERO DIVISOR RESULTS 
IN A CALL TO ERROR. (125 words) 

$DVD REPLACE THE TWO DOUBLE PRECISION NUMBERS ON THE TOP 

OF THE STACK WITH THEIR QUOTIENT. A ZERO DIVISOR CALLS 
ERROR. (210 words) 

$EXP EXPAND EXP (X) IN A TAYLOR SERIES AND RETURN REAL RESULT 

IN RO, R1. 



E-2 



APPENDIX F 
ERROR MESSAGES 



Forma^ of the message is: 

FORTcccnnn - message text 

where ccc is the class number in octal ASCII and nnn is the message number in octal ASCII. 

If no message file exists, the format reduces to FORTcccnnn. A subroutine trace back will follow each 
message. 



Class 



Class 1 



INVALID ERROR CALL 

1 NO SPACE TO DO I/O 

2 SUBROUTINE DIRECTLY OR INDIRECTLY REFERENCES ITSELF 



VALUE OUT OF BOUNDS (COMPUTED OR ASSIGNED GO TO) 

1 DEVICE PARITY 

2 CHECKSUM/PARITY ERR OR END OF DATA ERROR (RANDOM) 

3 I/O ERROR 

4 EOF/EOM 

5 UNABLE TO ALLOCATE CONTIGUOUS FILE 

6 DEFINE FILE NOT DONE (RANDOM) 

7 DEFINE FILE DONE (NOT RANDOM) 

10 INVALID PROTECT CODE 

1 1 FILE DOES NOT EXIST/OR ALREADY OPEN 

12 UNABLE TO OPEN 

13 COMPATIBILITY ERROR 

14 INVALID DEVICE NUMBER 

15 INVALID RECORD NUMBER (RANDOM) 
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Class 2 



FORMAT HAS ITEMS AND NO CONVERSION SPECS 

1 PARENTHESES NESTING TOO DEEP IN FORMAT 

2 CONVERSION ERROR 

3 FORMAT SYNTAX ERROR 

4 REFERENCE OUTSIDE OF RECORD BOUNDARIES 
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INDEX 
PART I FORTRAN IV COMPILER 



Argument definition, 1-1 

Arithmetic expression precedence, 2-6 

parenthesis usage, 2-6, 2-7 
Arithmetic expressions 

combination of elements, 2-5 

logical, 2-7 
Arithmetic 

assignment statements, 3-1 

operators, 2-5 

statements, 1-2, 7-1 
Arrays, 6-1 

dimensions, 7-2, 7-3 

dummy, 6-2 

FORMAT statement, 5-2 

subscripted variables, 2-5 

variables, 2-5, 5-10, 6-2 
ASCII character string 

FORMAT statement, 5-2 
ASSIGN statement, 3-3 
Assignment statements, 3-1 

Arithmetic, 3-1 

ASSIGN, 3-3 

conversion rules, 3-2 
Asterisk (*) usage in DATA statements, 6-6 



B 



BACKSPACE statement, 5-13 
Blank common, 6-3 

variables, 6-5 
Blanks 

in output record, 5-8 

statements, 1-3 
BLOCK DATA 

statement, 7-3, 7-4 

subprogram, 7-4 
Block names, 6-2, 6-4 
BYTE or LOGICAL*! type statement, 6-7 



CALL statement, 7-4 

Carriage control in FORMAT statement, 5-7 

Character set, 1-1 

Character skipping on input record, 5-8 

Comment line, 1-3 



COMMON blocks, 7-5 
Common block extension, 6-4 
Common blocks, 6-2 

extension, 6-4 

length, 6-3 
COMMON statement, 6-2, 7-3 
Complex expressions in IF statement, 4-3 
Complex quantities, numeric fields, 5-5 
COMPLEX type statement, 6-7 
Constants, logical, 2-7 
Continuation lines, 1-2 
CONTINUE statement, 4-6 
Control statements, 1-2, 4-1 

CONTINUE, 4-6 

DO, 4-4 

GO TO (assigned) 4-2 

GO TO (computed), 4-2 

GO TO (unconditional), 4-1 

IF (arithmetic), 4-3 

IF (logical), 4-4 

PAUSE, 4-7 

STOP, 4-7 
Constants, 2-1 

Double-precision, 2-2 

Fixed point, 2-1 

Hollerith, 2-4, 2-7 

Integer, 2-1, 2-7 

Logical, 2-7 

Octal, 2-2, 2-7 

Real, 2-1 

Single precision Floating Point, 2-1 
Conversion code, numeric field, 5-3 
Conversion rules for assignment statements, 3-2 



DATA statement, 6-5 

Data description statements, 5-1 

DEFINE FILE, 5-9 

FORMAT, 5-1 
Data transmission statements, 1-2, 5-1 

Description, 5-1 

Device control, 5-12 

Input/output, 5-9 
Data values, 2-1 

DEFINE FILE statement, 5-9, 5-12, 5-13 
Device control statements, 5-13 
DIMENSION statement, 6-1, 7-3 
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INDEX (Cont) 
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DO statement, 4-4 

extended range, 4-6 

nested, 4-5 

normal exit, 4-5 

range, 4-4 

terminal statements, 4-5 
Double precision constants, 2-2 
DOUBLE PRECISION or REAL*8 type state- 
ment, 6-7 
Dummy arguments in 

arithmetic statement functions, 7-2, 7-3 

SUBROUTINE statements, 7-3 
Dummy arrays, 6-2 



FUNCTION statement, 7-2, 7-3, 7-4 

Function 

arithmetic, 2-6 
dei^nitions, 7-1 
references, logical, 2-7 



GO TO statement, 4-1 
assigned, 4-2 
computed, 4-2 
unconditional, 4-1 



H 



End of file condition during input, 5-13 

END FILE statement, 5-14 

END statement, 1-2 

Equal symbol (=) usage, 3-1 

EQUIVALENCE statement, 6-3, 6-4, 7-3 

Error during input, 5-13 

Expressions, 2-5 

arithmetic, 2-5 

logical, 2-7 

mixed mode, 2-7 

numeric, 2-6 
External functions, 7-1 
EXTERNAL statement, 7-5 



Fields, 1-2 

Field specifications, FORMAT statement, 5-2 

blank, 5-3, 5-7 

Hollerith, 5-6 

logical, 5-6 

numeric, 5-3 

repetition, 5-3 
Field width, numeric, 5-4 
FIND statement, 5-13 
Fixed point constants, 2-1 
Format, punched card line, 1-2 
FORMAT statement, 1-2, 5-1 

carriage control, 5-7 

Hollerith fields, 5-6 

logical fields, 5-6 

numeric fields, 5-3 

record layout specification, 5-8 



H conversion, 5-6, 5-7 
Hollerith 

fields, 5-6 

value, 2-4, 2-7 

value in DATA statement, 6-5 



I 



IF statement, 4-3 

arithmetic, 4-3 

logical, 4-3 
Implicit statements, 6-7 
Indexed variables, 5-10 
Input/Output statements, 5-10 

lists, 5-10 

READ statement, 5-12 

Records, 5-11 

WRITE statement, 5-11 
INTEGER or INTEGER*2 type statement, 

6-7, 6-8 
Integer 

constants, 2-1 

variables, 2-4 
Internal 

functions, 7-1 

subprograms summary, 7-1 
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INDEX (Conf) 
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Language components, 1-1 
Line, 

continuation field, 1-2 

feed, 1-2 

format, punched cord, 1-2 
Lists, input/output, 5-10 
Literal constants in DATA statement, 6-5 
Logical 

arithmetic expressions, 2-7 

constants, 2-7 

expressions, 2-7 

fields, 5-6 

function reference, 2-7 

operations precedence, 2-9 

operators, 2-7 

variables, 2-7 
LOGICAL type statement, 6-7 



R 



Range of DO statement, 4-4 

Extended range, 4-6 
READ statement, 5-12 

direct access, 5-13 

formatted, 5-12 

unformatted, 5-13 
REAL or REALM type statement, 6-7, 6-8 
REAL*8 type statement, 6-7 
Real 

constants, 2-1 

variables, 2-4 
Record description, 5-1, 5-2 
Records, input/output, 5-11 

repositioning, 5-11 
Repetition of items in DATA statements, 6-6 
Repositioning input/output records, 5-11 
RETURN statement, 7-4 
REWIND statement, 5-14 



N 



Nested DO loops, 4-5, 4-6 
Normal exit, DO loop, 4-5 
Numeric fields, 5-3 

complex quantities, 5-5 

conversion code, 5-3 

scale factor, 5-5 

width, 5-4 
Numeric operations precedence, 2-6 



O 

Octal constants, 2-2, 2-7 
Operators 

arithmetic, 2-5 

logical, 2-7 



Parentheses usage, 

arithmetic expressions, 2-6, 2-7 
FORMAT statement, 5-2 

PAUSE statement, 4-6 

Program structure, 1-2 

Punched card line format, 1-2 



Scalar variable, 2-5, 6-2 

Scale factor, numeric fields, 5-5 

Single precision floating point constants, 2-1 

Slash (/) usage, 5-1 

Source program, definition and description, 1-1 

Spacing control character, 5-8 

Specification statements, 1-2, 6-1 

COMMON, 6-2 

DATA, 6-5 

DIMENSION, 6-1 

EQUIVALENCE, 6-3 

EQUIVALENCE and COMMON, 6-4 

implicit, 6-7 

type declaration, 6-7 
Statements, 

ASSIGN, 3-3 

assignment, 3-1 

BLOCK DATA, 7-4 

CALL, 7-4 

DEFINE FILE, 5-9, 5-12 

definition, 1-1 

device control, 5-13 

END, 1-2 

EXTERNAL, 7-5 

field, 1-2 
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St-afements (cont) 

FORMAT, 1-2 

FUNCTION, 7-2 

Inpuf/output, 5-10 

number field, 1-2 

READ, 5-12 

RETURN, 7-4 

STOP, 4-7 

SUBROUTINE, 7-3 

types, 1-2 

WRITE, 5-11 
STOP statement, 4-7 
Storage specification, 6-1 
Structure of program, 1-2 
Subexpression types, 2-8 
Subprogram statements, 1-2, 7-1 

Functions, 7-1 

subroutines, 7-3 
SUBROUTINE statement, 7-3, 7-4 
Subroutine subprograms, 7-3 
Subscripted arrays, 2-5 
Symbolic name, 2-4 



TAB, 1-2 

Terminal statements, DO loop, 4-5 

Type declaration statements, 6-7 



Variables, 2-4 
array, 2-5 
blank common, 6-5 
logical, 2-7 
scalar, 2-5 



W 



WRITE statement, 5-11 
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INDEX 
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ASCII character set, B-1 



Library subprograms summary, C-1 
Load module preparation, 1-2 
Logical device assignment, 3-2 



Buffers, input/output, 3-3 



Character set, ASCII, B-1 
Character, first of record, 3-1 
Command string syntactical error, 1-2 
Compilation, 1-1 
Control words, 3-1 



M 



Mathematical subroutines Object Time Sys- 
tem, 1-2 

Monitor interface routines. Object Time Sys- 
tem, 1-2 



N 



Number or pound symbol (*) usage, 1-1 



Device assignments, 3-2 
Device Table entry, 3-2, 3-3 



Object Time System (OTS), 1-2 
Output file specifications, 1-1 
extension, 1-1 



Error 

in command string, 1-2 

messages, F-1 

processing. Object Time System, 1-3 
Exit from subroutine and function calls, 2-3 



Peripheral devices, 3-2 
Polish mode of execution, 2-3 
Pound or number symbol (f) usage, 1-1 
Preparing an object module, 1-1 



File structures, 3-1 
Formats, summary of word, D-1 
Formatted file structures, 3-1 
Functions, summary, C-1 



I 



Input/output Object Time System, 3-1 
buffers, 3-3 
device assignment, 3-2 
file structures, 3-1 
routines, 1-2 



R 



Random access routines, 3-1 

READ statement, 3-3 

Record 

control words, 3-1 
layout specification, 5-8 
length, 3-1 

Register storage, 2-1 

Restart of compilation, 1-2 
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Service routines. Object Time System, 1-2 
Standard peripheral devices, 3-2 
Start of compilation, 1-1 

restart, 1-2 
Statement summary, A-1 
Subprograms, Object Time System, 2-1 

summary, C-1 

summary of internal, E-1 
Subroutine 

calls, 2-1 

summary, C-4 
Summary of 

functions, C-1 

internal subprograms, E-1 

statements, A-1 

subprograms, C-1 

subroutines, C-4 

word formats, D-1 ' 
Syntactical error in command string, 1-2 



U 



Unformatted file structures, 3-1 



W 

Word formats summary, D-1 
WRITE statement, 3-3 
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